fix restoring disabled menu item

svn: r3150 original commit: ba4d10a6395ba42574ad7c6b645ed2ea03310999
2006-05-31 18:36:58 +00:00 · 2006-05-31 18:36:58 +00:00 · 526581bdd6
commit 526581bdd6
parent dfcdcf0727
1 changed files with 1 additions and 0 deletions
--- a/collects/mred/private/mrmenu.ss
+++ b/collects/mred/private/mrmenu.ss
@ -135,6 +135,7 @@
 				(send wx-parent append (send wx id) label help-string checkable?))
 			    (send wx-parent append-item this wx))
 			  (send wx-parent append-item this wx-submenu (strip-tab label)))
+		      (send wx set-enabled #t) ; re-added item is initially enabled at wx level
 		      (set! shown? #t)
 		      (do-enable enabled?))))]
 	[delete (entry-point