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

.

Browse Source 
original commit: 66f98341dacb67d1438c1cccccc82ed8e38491de
This commit is contained in:
Robby Findler 2004-07-01 21:51:30 +00:00
parent ec974dc97a
commit 5d319d780f
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/framework/private/text.ss
View File

@ -888,7 +888,7 @@ WARNING: printf is rebound in the body of the unit to always
;; inserts something between the insertion point and the unread region ;; inserts something between the insertion point and the unread region
(define/public-final (insert-between str) (define/public-final (insert-between str)
(insert str unread-start-point unread-start-point) (insert str unread-start-point unread-start-point)
(set! unread-start-point (+ insertion-point (set! unread-start-point (+ unread-start-point
;; string-length is bad here ;; string-length is bad here
(string-length str)))) (string-length str))))
@ -918,15 +918,15 @@ WARNING: printf is rebound in the body of the unit to always
(error 'delete/io "expected start (~a) <= end (~a) <= insertion-point (~a)" (error 'delete/io "expected start (~a) <= end (~a) <= insertion-point (~a)"
start end insertion-point)) start end insertion-point))
(let ([before-allowed? allow-edits?]) (let ([before-allowed? allow-edits?])
(set! allow-edits? #t)
(printf "deleting ~s to ~s\n" start end) (printf "deleting ~s to ~s\n" start end)
(set! allow-edits? #t)
(delete start end #f) (delete start end #f)
(set! allow-edits? before-allowed?)
(printf "before ip ~s usp ~s\n" insertion-point unread-start-point) (printf "before ip ~s usp ~s\n" insertion-point unread-start-point)
(let ([dist (- end start)]) (let ([dist (- end start)])
(set! insertion-point (- insertion-point dist)) (set! insertion-point (- insertion-point dist))
(set! unread-start-point (- unread-start-point dist))) (set! unread-start-point (- unread-start-point dist)))
(printf "after ip ~s usp ~s\n" insertion-point unread-start-point) (printf "after ip ~s usp ~s\n" insertion-point unread-start-point)))
(set! allow-edits? before-allowed?)))
(define/public-final (get-in-port) (define/public-final (get-in-port)
(unless in-port (error 'get-in-port "not ready")) (unless in-port (error 'get-in-port "not ready"))