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

..

Browse Source 
original commit: 96554a12185db9e003c0e02e9b8f06812db4903c
This commit is contained in:
Robby Findler 2002-05-13 13:02:54 +00:00
parent dc57d1ca3c
commit 228fe03841
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -89,7 +89,7 @@
(lambda (menu)
(for-each (lambda (item) (send item delete))
(send menu get-items))
(instantiate menu:can-restore-checkable-menu-item% ()
(instantiate menu:can-restore-menu-item% ()
(label (string-constant bring-frame-to-front...))
(parent menu)
(callback (lambda (x y) (choose-a-frame (send (send menu get-parent) get-frame))))

2
collects/framework/private/handler.ss
View File

@ -276,7 +276,9 @@
(lambda (p v)
(refresh-hl v)))])
(rename [super-on-close on-close])
(define/override (on-close)
(super-on-close)
(remove-prefs-callback)
(set! recent-items-window #f))