patch to MrEd menu system from Danny
svn: r7805
This commit is contained in:
parent
da32b77d55
commit
246c14c833
|
@ -64,8 +64,8 @@
|
|||
(ormap
|
||||
(lambda (i)
|
||||
(let* ([data (send (mred->wx i) get-menu-data)]
|
||||
[label (car data)]
|
||||
[menu (cdr data)])
|
||||
[label (mcar data)]
|
||||
[menu (mcdr data)])
|
||||
(if (regexp-match re label)
|
||||
(begin
|
||||
(send menu select this)
|
||||
|
|
Loading…
Reference in New Issue
Block a user