From 4537d37219798e709459e41a7514e10e002b6828 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 8 Sep 1998 23:42:24 +0000
Subject: [PATCH] .

original commit: ba44935624ff287ef379ef6ffe5d6201014d1757
---
 collects/tests/mred/item.ss | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/collects/tests/mred/item.ss b/collects/tests/mred/item.ss
index 40343871..59e6a98b 100644
--- a/collects/tests/mred/item.ss
+++ b/collects/tests/mred/item.ss
@@ -689,10 +689,6 @@
 		     "Add Delete Banana" sbp
 		     (lambda args
 		       (send DELETE-BANANA restore)))
-	(make-object button%
-		     "Toggle Menubar Enable" sbp
-		     (lambda args
-		       (send mb enable (send mb is-enabled?))))
 	(make-object button%
 		     "Counts" sbp
 		     (lambda args
@@ -709,7 +705,15 @@
 		     "Check in Apple" mfbp
 		     (lambda args
 		       (send APPLE-CHECK-ID check #t)))
-	
+	(make-object button%
+		     "Toggle Menubar Enable" mfbp
+		     (lambda args
+		       (send menu-bar enable (not (send menu-bar is-enabled?)))))
+	(make-object button%
+		     "Toggle Apple Enable" mfbp
+		     (lambda args
+		       (send (send apple-menu get-item) enable (not (send (send apple-menu get-item) is-enabled?)))))
+
 	(make-object button%
 		     "Test Labels" lblp 
 		     (lambda args