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

.

Browse Source 
original commit: 561d9472c38761772d543dc154b0499640b742dd
This commit is contained in:
Matthew Flatt 2005-01-03 22:06:43 +00:00
parent 05920a9491
commit c8d5a41f99
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

@ -1095,9 +1095,9 @@
(make-object check-box% "Pixset" hp2
(lambda (self event)
(send canvas set-pixel-copy (send self get-value))))
(make-object choice% #f '("Unsmoothed" "Smoothed" "Compatible") hp2.5
(make-object choice% #f '("Unsmoothed" "Smoothed" "Aligned") hp2.5
(lambda (self event)
(set! smoothing (list-ref '(unsmoothed smoothed compatible)
(set! smoothing (list-ref '(unsmoothed smoothed aligned)
(send self get-selection)))
(send canvas refresh)))
(make-object button% "Clock" hp2.5 (lambda (b e) (clock #f)))