From 0e7717d366acb3834d86228ddac0fcc8bfec5a2c Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 3 Jan 2011 14:42:32 -0600 Subject: [PATCH] 2htdp/image: when selected, draw with some transparency so the selection is visible original commit: d886df2acc543e44c7b6f4f4de92beed1710b069 --- collects/mrlib/image-core.rkt | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/collects/mrlib/image-core.rkt b/collects/mrlib/image-core.rkt index bdeb509b..b84be607 100644 --- a/collects/mrlib/image-core.rkt +++ b/collects/mrlib/image-core.rkt @@ -314,7 +314,11 @@ has been moved out). (define/override (copy) (make-image shape bb normalized? pinhole)) (define/override (draw dc x y left top right bottom dx dy draw-caret?) - (render-image this dc x y)) + (let ([alpha (send dc get-alpha)]) + (when draw-caret? + (send dc set-alpha (* alpha .5))) + (render-image this dc x y) + (send dc set-alpha alpha))) (define/override (get-extent dc x y [w #f] [h #f] [descent #f] [space #f] [lspace #f] [rspace #f]) (send (get-the-snip-class-list) add snip-class)