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

bug fixes

Browse Source 
original commit: a15d8111084a3aec699543b1c41213a6abcf399f
This commit is contained in:
Matthew Flatt 1999-02-21 00:29:53 +00:00
parent b588d16de8
commit f92efa7396
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/mred/wrap/mred.ss
View File

@ -3895,7 +3895,7 @@
(set! wx-menu (make-object wx-menu% this #f void))
(super-init parent label help-string wx-menu #f (send wx-menu get-keymap) (lambda (x) x))
(let ([wx-item (mred->wx this)])
(set-cdr! (send wx-item get-menu-data) wx-item) ; for meta-shortcuts
(set-cdr! (send wx-item get-menu-data) wx-menu) ; for meta-shortcuts
(send wx-item set-wx-menu wx-menu)))))))
(define popup-menu%