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

.

Browse Source 
original commit: ba44935624ff287ef379ef6ffe5d6201014d1757
This commit is contained in:
Matthew Flatt 1998-09-08 23:42:24 +00:00
parent 2a63a9bc21
commit 4537d37219
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/tests/mred/item.ss
View File

@ -689,10 +689,6 @@
"Add Delete Banana" sbp "Add Delete Banana" sbp
(lambda args (lambda args
(send DELETE-BANANA restore))) (send DELETE-BANANA restore)))
(make-object button%
"Toggle Menubar Enable" sbp
(lambda args
(send mb enable (send mb is-enabled?))))
(make-object button% (make-object button%
"Counts" sbp "Counts" sbp
(lambda args (lambda args
@ -709,6 +705,14 @@
"Check in Apple" mfbp "Check in Apple" mfbp
(lambda args (lambda args
(send APPLE-CHECK-ID check #t))) (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% (make-object button%
"Test Labels" lblp "Test Labels" lblp