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

.

Browse Source 
original commit: 1b697e702b05ce41e8f67b472abcf23a89b7da62
This commit is contained in:
Matthew Flatt 2004-03-09 18:18:58 +00:00
parent 7211a69314
commit c7a4b945c8
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
collects/mred/private/kernel.ss
View File

@ -313,7 +313,6 @@
on-kill-focus) on-kill-focus)
(define-class choice% item% #f (define-class choice% item% #f
set-selection set-selection
get-string-selection
get-selection get-selection
number number
clear clear

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

@ -778,7 +778,7 @@
[sep (lambda () (make-object separator-menu-item% menu))]) [sep (lambda () (make-object separator-menu-item% menu))])
(set! menu-bar mb) (set! menu-bar mb)
(set! main-menu menu) (set! main-menu menu)
(set! ADD-APPLE (new "Add Apple" "Adds the Apple menu")) (set! ADD-APPLE (new "Add Apple" "Adds the Apple menu"))
(set! ADD-BANANA (new "Add Banana")) (set! ADD-BANANA (new "Add Banana"))
(set! ADD-COCONUT (new "Add Coconut")) (set! ADD-COCONUT (new "Add Coconut"))
@ -808,6 +808,8 @@
(make-object menu-item% "Disable Second" menu (mk-enable #f)) (make-object menu-item% "Disable Second" menu (mk-enable #f))
(make-object menu-item% "Enable Second" menu (mk-enable #t))) (make-object menu-item% "Enable Second" menu (mk-enable #t)))
(make-object menu-item% "Chinese: \U7238" menu void)
(let ([make-menu (let ([make-menu
(opt-lambda (title parent help-string) (opt-lambda (title parent help-string)
(let ([m (make-object menu% title parent help-string)]) (let ([m (make-object menu% title parent help-string)])