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

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

@ -297,16 +297,26 @@
cb icb cb icb
rb irb rb irb
ch ch
txt)]) txt)]
(cons (make-object popup-test-canvas% [names (list "label" "image label"
items
(list "label" "image label"
"button" "image button" "button" "image button"
"list box" "list box"
"checkbox" "image checkbox" "checkbox" "image checkbox"
"radio box" "image radiobox" "radio box" "image radiobox"
"choice" "choice"
"text") "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%
items
names
cp) cp)
items))) items)))