From 0e0139ebb48de3ea33ed6f70f36dabdb28df37b2 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 30 Dec 2010 06:40:05 -0700 Subject: [PATCH] add alpha value to `color%' original commit: a974dad8bfb63679ac5af1fd819e7c7c67ee75e5 --- collects/tests/gracket/draw.rkt | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/collects/tests/gracket/draw.rkt b/collects/tests/gracket/draw.rkt index f885c00e..ae31b0c9 100644 --- a/collects/tests/gracket/draw.rkt +++ b/collects/tests/gracket/draw.rkt @@ -920,6 +920,14 @@ 100 310) p)) + (let ([p (send dc get-pen)]) + (send dc set-pen (make-object color% 0 0 0 0.1) 1 'solid) + (send dc set-brush (make-object color% 255 0 200 0.5) 'solid) + (send dc draw-rectangle 250 310 20 20) + (send dc set-brush (make-object color% 0 255 200 0.5) 'solid) + (send dc draw-rectangle 260 320 20 20) + (send dc set-pen p)) + (send dc draw-line 130 310 150 310) (send dc draw-line 130 312.5 150 312.5) (send dc draw-line 130 314.3 150 314.3)