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

.

Browse Source 
original commit: 7a58fa0c86e2aa537381ea8ee33cf72bf9e6f4eb
This commit is contained in:
Robby Findler 2004-07-25 14:04:19 +00:00
parent 9b4698a09a
commit 38b8f80320
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/mrlib/cache-image-snip.ss
View File

@ -104,13 +104,11 @@
(define/override (draw dc x y left top right bottom dx dy draw-caret)
(cond
[argb
(let ([bitmap (get-bitmap)])
(send dc draw-bitmap bitmap x y 'solid
(send the-color-database find-color "black")
(send bitmap get-loaded-mask)))]
[dc-proc
(dc-proc dc x y)]
[argb (let ([bitmap (get-bitmap)])
(send dc draw-bitmap bitmap x y 'solid
(send the-color-database find-color "black")
(send bitmap get-loaded-mask)))]
[dc-proc (dc-proc dc x y)]
[else (void)]))
(define/override (write f)