.

original commit: 5c87437c1a1ea6c5fd5436512c3bcfb0a71a6312
2001-11-13 04:04:23 +00:00 · 2001-11-13 04:04:23 +00:00 · 3afdbff1dc
commit 3afdbff1dc
parent e0ea9ca881
1 changed files with 1 additions and 0 deletions
--- a/collects/framework/private/group.ss
+++ b/collects/framework/private/group.ss
@ -55,6 +55,7 @@
 	  [define remove-windows-menu
 	    (lambda (frame)
 	      (let* ([menu (get-windows-menu frame)])
+		(map (lambda (i) (send i delete)) (send menu get-items))
 		(set! windows-menus
 		      (remove
 		       menu