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

improve the drawing of the menu popup when it is yellow and the mouse is over it

Browse Source
This commit is contained in:
Robby Findler 2011-01-08 14:29:36 -06:00
parent cdd099f024
commit 66f6f04c1e
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/mrlib/name-message.rkt
View File

@ -277,7 +277,8 @@
(define w (+ border-inset circle-spacer button-label-inset label-width button-label-inset triangle-width circle-spacer border-inset))
(when bkg-color
(when (and bkg-color
(and (not (or mouse-over? grabbed?))))
(send dc set-pen bkg-color 1 'solid)
(send dc set-brush bkg-color 'solid)
(send dc draw-rectangle dx dy w h))