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

patch to MrEd menu system from Danny

Browse Source 
svn: r7805

original commit: 246c14c833ef823155eccfca640b32263d1b91df
This commit is contained in:
Matthew Flatt 2007-11-21 19:59:51 +00:00
parent db58217625
commit fcc9e5f98a
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/mred/private/wxmenu.ss
View File

@ -64,8 +64,8 @@
(ormap (ormap
(lambda (i) (lambda (i)
(let* ([data (send (mred->wx i) get-menu-data)] (let* ([data (send (mred->wx i) get-menu-data)]
[label (car data)] [label (mcar data)]
[menu (cdr data)]) [menu (mcdr data)])
(if (regexp-match re label) (if (regexp-match re label)
(begin (begin
(send menu select this) (send menu select this)