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

.

Browse Source 
original commit: a5e3ede8f966e24dfa9f19736b9443c9c803012e
This commit is contained in:
Matthew Flatt 2003-06-02 01:24:43 +00:00
parent 205f1d4063
commit b032c32123
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/tests/mred/png.ss
View File

@ -91,7 +91,7 @@
(define mask (new choice% (define mask (new choice%
[label "Alpha"] [label "Alpha"]
[choices '("Auto" "Mask" "Alpha")] [choices '("Auto" "Mask")]
[parent f] [parent f]
[callback (lambda (c e) (refresh))])) [callback (lambda (c e) (refresh))]))
(define bg (new choice% (define bg (new choice%
@ -131,8 +131,7 @@
(define (get-mask-mode) (define (get-mask-mode)
(case (send mask get-selection) (case (send mask get-selection)
[(0) 'unknown] [(0) 'unknown]
[(1) 'unknown/mask] [(1) 'unknown/mask]))
[(2) 'unknown/alpha]))
(define get-bg-color (define get-bg-color
(let ([white (make-object color% 255 255 255)] (let ([white (make-object color% 255 255 255)]