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

2htdp/image: when selected, draw with some transparency so the selection is visible

Browse Source 
original commit: d886df2acc543e44c7b6f4f4de92beed1710b069
This commit is contained in:
Robby Findler 2011-01-03 14:42:32 -06:00
parent 038d2db95a
commit 0e7717d366
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/mrlib/image-core.rkt
View File

@ -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)