suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

.

Browse Source 
original commit: 667d334d1ebb5bc7a8c41fe68ba0e167ab141ac1
This commit is contained in:
Matthew Flatt 2004-12-14 14:22:37 +00:00
parent 15880039c9
commit 2f943f2b1d
2 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/mred/mred.ss
View File

@ -7837,9 +7837,7 @@
(if (or expect-to-read-all? (if (or expect-to-read-all?
((- end start) . < . 4096)) ((- end start) . < . 4096))
;; It's all text, and it's short enough: just read it into a string ;; 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)]) (open-input-string (send text get-text start end) port-name)
(port-count-lines! port)
port)
;; It's all text, so the reading process is simple: ;; It's all text, so the reading process is simple:
(let ([start start]) (let ([start start])
(let-values ([(pipe-r pipe-w) (make-pipe)]) (let-values ([(pipe-r pipe-w) (make-pipe)])
@ -7940,7 +7938,6 @@
(set! next? #t) (set! next? #t)
(display (send-generic snip get-text-generic skip c) pipe-w)) (display (send-generic snip get-text-generic skip c) pipe-w))
(update-str-to-snip empty-string)) (update-str-to-snip empty-string))
(port-count-lines! port)
port))))))) port)))))))
(define (text-editor-load-handler filename expected-module) (define (text-editor-load-handler filename expected-module)

1
collects/mred/private/kernel.ss
View File

@ -414,6 +414,7 @@
(define-class bitmap-dc% dc% () (define-class bitmap-dc% dc% ()
get-bitmap get-bitmap
set-bitmap set-bitmap
draw-scaled-section
set-argb-pixels set-argb-pixels
get-argb-pixels get-argb-pixels
set-pixel set-pixel