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

...

Browse Source 
original commit: eaedf4c28cb39eb14ec613289ea1312459890ed2
This commit is contained in:
Robby Findler 2001-07-12 05:17:42 +00:00
parent d583e791d6
commit 7fb206283e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/framework/private/gen-standard-menus.ss
View File

@ -69,7 +69,7 @@
(instantiate (get-menu-item%) () (instantiate (get-menu-item%) ()
(label ,(join menu-before-string menu-after-string (label ,(join menu-before-string menu-after-string
`(,(an-item->string-name item)))) `(,(an-item->string-name item))))
(menu ,(menu-item-menu-name item)) (parent ,(menu-item-menu-name item))
(callback (let ([,callback-name (lambda (item evt) (,callback-name item evt))]) (callback (let ([,callback-name (lambda (item evt) (,callback-name item evt))])
,callback-name)) ,callback-name))
(shortcut ,key) (shortcut ,key)