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

..

Browse Source 
original commit: 13c5a183773ecec59c7d3e194331d7871d7ee118
This commit is contained in:
Robby Findler 2002-05-04 15:55:55 +00:00
parent 803eeca689
commit 9ade87ae69
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

@ -142,7 +142,8 @@
(let ([old (keymap:add-to-right-button-menu)])
(lambda (menu text event)
(old menu text event)
(split/collapse-text menu text event))))
(split/collapse-text menu text event)
(void))))
;; split/collapse-text : (instanceof menu%) (instanceof editor<%>) (instanceof mouse-event%) -> void
(define (split/collapse-text menu text event)