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

hidden name message should simply not draw

Browse Source
This commit is contained in:
Matthew Flatt 2010-07-29 09:40:39 -06:00
parent b027bc3bc3
commit 6e977d7c20
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -185,6 +185,7 @@
(let-values ([(w h) (get-client-size)]) (let-values ([(w h) (get-client-size)])
(cond (cond
[hidden? [hidden?
#;
(let ([pen (send dc get-pen)] (let ([pen (send dc get-pen)]
[brush (send dc get-brush)]) [brush (send dc get-brush)])
(send dc set-brush (send the-brush-list find-or-create-brush (get-panel-background) 'panel)) (send dc set-brush (send the-brush-list find-or-create-brush (get-panel-background) 'panel))