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

.

Browse Source 
original commit: eb3b78c50772097f4a62eef5ef7d78f0b6fec2d9
This commit is contained in:
Matthew Flatt 2001-07-25 20:38:48 +00:00
parent f817f4e284
commit a6b5da70ee
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1598,6 +1598,13 @@
(lambda (c e) (lambda (c e)
(send c1 inc-mode (send c get-value)) (send c1 inc-mode (send c get-value))
(send c2 inc-mode (send c get-value)))) (send c2 inc-mode (send c get-value))))
(make-object check-box%
"x2" ip
(lambda (c e)
(let ([s (if (send c get-value)
2
1)])
(send (send c2 get-dc) set-scale s s))))
(send c1 set-vsize 10 10) (send c1 set-vsize 10 10)
(send c2 set-vsize 500 200) (send c2 set-vsize 500 200)
(send f create-status-line) (send f create-status-line)