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

.

Browse Source 
original commit: d7b87ced74fe033b2ca0b763d61da503df5876ce
This commit is contained in:
Matthew Flatt 1998-10-15 16:00:34 +00:00
parent dd08f04574
commit cc733f452d
1 changed files with 19 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -297,17 +297,27 @@
cb icb cb icb
rb irb rb irb
ch ch
txt)]) txt)]
[names (list "label" "image label"
"button" "image button"
"list box"
"checkbox" "image checkbox"
"radio box" "image radiobox"
"choice"
"text")])
(make-object choice%
"Set Focus"
(cons "..." names)
lp
(lambda (c e)
(let ([v (send c get-selection)])
(when (positive? v)
(send (list-ref items (sub1 v)) focus)
(send c set-selection 0)))))
(cons (make-object popup-test-canvas% (cons (make-object popup-test-canvas%
items items
(list "label" "image label" names
"button" "image button" cp)
"list box"
"checkbox" "image checkbox"
"radio box" "image radiobox"
"choice"
"text")
cp)
items))) items)))
(define (big-frame h-radio? v-label? null-label? stretchy? special-label-font? special-button-font?) (define (big-frame h-radio? v-label? null-label? stretchy? special-label-font? special-button-font?)