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

...

Browse Source 
original commit: c78746c867010e879e6b7b444ad88924e176d8b8
This commit is contained in:
Robby Findler 2000-08-12 20:40:20 +00:00
parent f60545b04e
commit 1aa997875f
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/gen-standard-menus.ss
View File

@ -97,7 +97,8 @@ string=? ; exec mred -qr $0
,(join menu-before-string menu-after-string
`(,(build-id item "-string")))
,(menu-name->id name-string)
,name
(let ([,name (lambda (item evt) (,name item evt))])
,name)
(if (preferences:get 'framework:menu-bindings) ,key #f)
(,(build-id item "-help-string"))))])))