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

improve editor highlighting of selected image-snip%

Browse Source
This commit is contained in:
Matthew Flatt 2010-12-01 13:54:51 -07:00
parent e9710d08f5
commit ed8aa132de
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/mred/private/wxme/snip.rkt
View File

@ -964,9 +964,14 @@
(send mask ok?) (send mask ok?)
(= w (send mask get-width)) (= w (send mask get-width))
(= w (send mask get-height)) (= w (send mask get-height))
mask)))]) mask)))]
[alpha (send dc get-alpha)])
(when (pair? caret)
(send dc set-alpha (* 0.5 alpha)))
(send dc draw-bitmap-section bm x y 0 0 w h (send dc draw-bitmap-section bm x y 0 0 w h
'solid black-color msk)))) 'solid black-color msk)
(when (pair? caret)
(send dc set-alpha alpha)))))
(def/override (copy) (def/override (copy)
(let ([s (new image-snip%)]) (let ([s (new image-snip%)])