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

.

Browse Source 
original commit: 725a656fb7d2c3a103b7e695fe952418de255a0d
This commit is contained in:
Matthew Flatt 2004-09-15 21:58:29 +00:00
parent a8a5fef3ff
commit cab23e083d
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -753,7 +753,8 @@
DELETE-COCONUT-2
COCONUT-ID
DELETE-ONCE
APPLE-CHECK-ID)
APPLE-CHECK-ID
CHINESE)
(private-field
menu-bar
main-menu
@ -806,7 +807,7 @@
(make-object menu-item% "Disable Second" menu (mk-enable #f))
(make-object menu-item% "Enable Second" menu (mk-enable #t)))
(make-object menu-item% "Chinese: \U7238" menu void)
(set! CHINESE (make-object menu-item% "Chinese: \U7238" menu void))
(let ([make-menu
(opt-lambda (title parent help-string)
@ -1031,6 +1032,8 @@
(send DELETE-APPLE set-help-string (tmp-pick "DELETER" "Deletes the Apple menu"))
(send COCONUT-ID set-help-string (tmp-pick "SUBMENU" "Submenu"))
(send DELETE-COCONUT set-help-string (tmp-pick "CDELETER" #f))
(send CHINESE set-label (tmp-pick "Chinese: \U7239" "Chinese: \U7238"))
(send CHINESE set-shortcut (tmp-pick #\C #\K))
(send main-menu set-label (if temp-labels? "Hi" "&Tester")))))
(letrec ([by-bar (make-object check-box%
"Via Menubar" lblp