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

Added port name source to the input port returned by framework text's get-in-port; this addresses the bug of the source highlighting not showing when the source stx comes from interaction window.

Browse Source 
svn: r10729
This commit is contained in:
Danny Yoo 2008-07-12 22:46:47 +00:00
parent af71ab0e4f
commit 47bed6d1e7
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1077,6 +1077,7 @@ WARNING: printf is rebound in the body of the unit to always
get-end-position
get-snip-position
get-style-list
get-port-name
is-locked?
last-position
lock
@ -1684,9 +1685,9 @@ WARNING: printf is rebound in the body of the unit to always
(super-new)
(init-output-ports)
(define-values (in-port read-chan clear-input-chan)
(start-text-input-port this #f))
(start-text-input-port (get-port-name) #f))
(define-values (in-box-port box-read-chan box-clear-input-chan)
(start-text-input-port this (lambda () (on-box-peek))))))
(start-text-input-port (get-port-name) (lambda () (on-box-peek))))))
(define input-box<%>
(interface ((class->interface text%))