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

fixed PR 7786

Browse Source 
svn: r1732
This commit is contained in:
Robby Findler 2005-12-31 14:32:54 +00:00
parent 00d989a80a
commit f1904d29c1
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/framework/private/scheme.ss
View File

@ -163,7 +163,8 @@
;; split/collapse-text : (instanceof menu%) (instanceof editor<%>) (instanceof mouse-event%) -> void ;; split/collapse-text : (instanceof menu%) (instanceof editor<%>) (instanceof mouse-event%) -> void
(define (split/collapse-text menu text event) (define (split/collapse-text menu text event)
(when (and (is-a? text -text<%>) (when (and (is-a? text -text<%>)
(not (send text is-frozen?))) (not (send text is-frozen?))
(not (send text is-stopped?)))
(let* ([on-it-box (box #f)] (let* ([on-it-box (box #f)]
[click-pos [click-pos
(call-with-values (call-with-values