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

...

Browse Source 
original commit: e09065bb9b93c5c78f6f86447c963cff79817f2f
This commit is contained in:
Robby Findler 1999-07-21 18:02:18 +00:00
parent 088814bded
commit ada771440d
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/framework/gen-standard-menus.ss
View File

@ -142,6 +142,14 @@ string=? ; exec mred -mgaqvf $0
(pretty-print (pretty-print
`(define standard-menus-mixin `(define standard-menus-mixin
(mixin (basic<%>) (standard-menus<%>) args (mixin (basic<%>) (standard-menus<%>) args
(inherit on-menu-char on-traverse-char)
(override
[on-subwindow-char
(lambda (receiver event)
(if (preferences:get 'framework:menu-bindings)
(on-traverse-char event)
(or (on-menu-char event) (on-traverse-char event))))])
(inherit get-menu-bar can-close? on-close show get-edit-target-object) (inherit get-menu-bar can-close? on-close show get-edit-target-object)
(sequence (apply super-init args)) (sequence (apply super-init args))
,@(append ,@(append