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

.

Browse Source 
original commit: 7072f42b8ee247fea6802236b34337174a386d16
This commit is contained in:
Robby Findler 2005-02-19 21:09:28 +00:00
parent 70fa3dffb7
commit 412b3fb4a0
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/framework/private/menu.ss
View File

@ -23,7 +23,7 @@
(unless (eq? saved-shortcut 'not-yet)
(set-shortcut saved-shortcut)))
(super-instantiate ())
(super-new)
(set! saved-shortcut (get-shortcut))
(unless (preferences:get 'framework:menu-bindings)
(set-shortcut #f))))
@ -42,7 +42,7 @@
(unless (eq? saved-label 'not-yet-saved-label)
(set-label saved-label)))
(define saved-label 'not-yet-saved-label)
(super-instantiate ())
(super-new)
(set! saved-label (get-label))
(unless (preferences:get 'framework:menu-bindings)
(erase-underscores))))