diff --git a/collects/framework/private/group.ss b/collects/framework/private/group.ss index ba42a440..7d9b99bf 100644 --- a/collects/framework/private/group.ss +++ b/collects/framework/private/group.ss @@ -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)))) diff --git a/collects/framework/private/handler.ss b/collects/framework/private/handler.ss index bd89f853..0dc64d77 100644 --- a/collects/framework/private/handler.ss +++ b/collects/framework/private/handler.ss @@ -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))