From b032c3212340338579430c04824609635b0d94e8 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 2 Jun 2003 01:24:43 +0000
Subject: [PATCH] .

original commit: a5e3ede8f966e24dfa9f19736b9443c9c803012e
---
 collects/tests/mred/png.ss | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/collects/tests/mred/png.ss b/collects/tests/mred/png.ss
index c18171e4..dd5d072f 100644
--- a/collects/tests/mred/png.ss
+++ b/collects/tests/mred/png.ss
@@ -91,7 +91,7 @@
 
 (define mask (new choice%
 		  [label "Alpha"]
-		  [choices '("Auto" "Mask" "Alpha")]
+		  [choices '("Auto" "Mask")]
 		  [parent f]
 		  [callback (lambda (c e) (refresh))]))
 (define bg (new choice%
@@ -131,8 +131,7 @@
 (define (get-mask-mode)
   (case (send mask get-selection)
     [(0) 'unknown]
-    [(1) 'unknown/mask]
-    [(2) 'unknown/alpha]))
+    [(1) 'unknown/mask]))
 
 (define get-bg-color
   (let ([white (make-object color% 255 255 255)]