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

.

Browse Source 
original commit: 2c041b83ac1f3826d470fd01823ed35d93e13706
This commit is contained in:
Robby Findler 2004-04-09 03:10:11 +00:00
parent 76335726c8
commit a22355a548
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -962,7 +962,7 @@ WARNING: printf is rebound in the body of the unit to always
(= start end)
(submit-to-port? key))
(let ([snips/chars (extract-snips/chars unread-start-point (last-position))])
(printf "sending over ~s ~s\n" unread-start-point snips/chars)
(printf "sending over usp~s ~s\n" unread-start-point snips/chars)
(for-each (lambda (s/c)
(cond
[(is-a? s/c snip%)
@ -974,9 +974,9 @@ WARNING: printf is rebound in the body of the unit to always
(set! allow-tabify? #f)
(super-on-local-char key)
(set! allow-tabify? #t)
(channel-put read-chan (char->integer #\newline))
(set! unread-start-point (last-position))
(set! insertion-point (last-position))
(printf "sent over; new usp ~s\n" unread-start-point)
(on-submit))]
[else
(super-on-local-char key)])))
@ -1238,7 +1238,7 @@ WARNING: printf is rebound in the body of the unit to always
(define/private (extract-snips/chars start end)
(split-snip start)
(split-snip end)
(let loop ([snip (find-snip start 'after)])
(let loop ([snip (find-snip start 'after-or-none)])
(cond
[(not snip) null]
[(< (get-snip-position snip) end)