.
original commit: 667d334d1ebb5bc7a8c41fe68ba0e167ab141ac1
This commit is contained in:
parent
15880039c9
commit
2f943f2b1d
|
@ -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)
|
||||||
|
|
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue
Block a user