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

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

@ -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)])