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

.

Browse Source 
original commit: 5c87437c1a1ea6c5fd5436512c3bcfb0a71a6312
This commit is contained in:
Matthew Flatt 2001-11-13 04:04:23 +00:00
parent e0ea9ca881
commit 3afdbff1dc
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
collects/framework/private/group.ss
View File

@ -55,6 +55,7 @@
[define remove-windows-menu [define remove-windows-menu
(lambda (frame) (lambda (frame)
(let* ([menu (get-windows-menu frame)]) (let* ([menu (get-windows-menu frame)])
(map (lambda (i) (send i delete)) (send menu get-items))
(set! windows-menus (set! windows-menus
(remove (remove
menu menu