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

.

Browse Source 
original commit: 955c485a38846d2ef2479751bc9fd68296d5b794
This commit is contained in:
Matthew Flatt 2000-09-12 22:58:03 +00:00
parent 0cc2166392
commit 1ed1e1bf55
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -719,9 +719,9 @@
(make-object button% "Print" hp
(lambda (self event)
(send canvas on-paint 'print)))
(make-object check-box% "*2" hp
(make-object choice% #f '("1" "*2" "/2") hp
(lambda (self event)
(send canvas set-scale (if (send self get-value) 2 1))))
(send canvas set-scale (list-ref '(1 2 1/2) (send self get-selection)))))
(make-object check-box% "+10" hp
(lambda (self event)
(send canvas set-offset (if (send self get-value) 10 0))))