From 2f943f2b1d42e9badd481ca38c508bdfc7ee94ed Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 14 Dec 2004 14:22:37 +0000 Subject: [PATCH] . original commit: 667d334d1ebb5bc7a8c41fe68ba0e167ab141ac1 --- collects/mred/mred.ss | 5 +---- collects/mred/private/kernel.ss | 1 + 2 files changed, 2 insertions(+), 4 deletions(-) diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss index f7288e6b..d2874180 100644 --- a/collects/mred/mred.ss +++ b/collects/mred/mred.ss @@ -7837,9 +7837,7 @@ (if (or expect-to-read-all? ((- end start) . < . 4096)) ;; It's all text, and it's short enough: just read it into a string - (let ([port (open-input-string (send text get-text start end) port-name)]) - (port-count-lines! port) - port) + (open-input-string (send text get-text start end) port-name) ;; It's all text, so the reading process is simple: (let ([start start]) (let-values ([(pipe-r pipe-w) (make-pipe)]) @@ -7940,7 +7938,6 @@ (set! next? #t) (display (send-generic snip get-text-generic skip c) pipe-w)) (update-str-to-snip empty-string)) - (port-count-lines! port) port))))))) (define (text-editor-load-handler filename expected-module) diff --git a/collects/mred/private/kernel.ss b/collects/mred/private/kernel.ss index 271d0acb..a96c50e0 100644 --- a/collects/mred/private/kernel.ss +++ b/collects/mred/private/kernel.ss @@ -414,6 +414,7 @@ (define-class bitmap-dc% dc% () get-bitmap set-bitmap + draw-scaled-section set-argb-pixels get-argb-pixels set-pixel