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

.

Browse Source 
original commit: 51e2379471994c2804c7921b21a7f3c659a5f014
This commit is contained in:
Matthew Flatt 2002-12-18 00:36:18 +00:00
parent 84b674e553
commit 8a61eecf38
1 changed files with 15 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
collects/mred/mred.ss
View File

@ -5371,17 +5371,22 @@
(lambda ()
(set! wx (make-object wx-menu% this title
(lambda (mwx e)
(let ([wx (wx:id-to-menu-item (send e get-menu-id))])
(when wx
(send (wx->mred wx) command (make-object wx:control-event% 'menu)))
(dynamic-wind
void
(lambda ()
(popdown-callback this (make-object wx:control-event%
(if wx
'menu-popdown
(let ([go
(lambda ()
(let ([wx (wx:id-to-menu-item (send e get-menu-id))])
(when wx
(send (wx->mred wx) command (make-object wx:control-event% 'menu)))
(dynamic-wind
void
(lambda ()
(popdown-callback this (make-object wx:control-event%
(if wx
'menu-popdown
'menu-popdown-none))))
(lambda () (send mwx popup-release)))))))
(lambda () (send mwx popup-release)))))])
(if (eq? 'windows (system-type))
(wx:queue-callback go wx:middle-queue-key)
(go))))))
(super-init wx))))))
(define menu-bar%