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

adjust the way the () colorer status thingy draws

Browse Source
This commit is contained in:
Robby Findler 2011-01-06 14:08:13 -06:00
parent 99d39ff3cf
commit b77847904e
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/drracket/private/unit.rkt
View File

@ -4013,13 +4013,10 @@ module browser threading seems wrong.
[paint-callback
(λ (c dc)
(when (number? th)
(cond
[color-valid?
(send dc erase)]
[else
(let-values ([(cw ch) (send c get-client-size)])
(send dc set-font small-control-font)
(send dc draw-text on-string 0 (- (/ ch 2) (/ th 2))))])))]))
(unless color-valid?
(let-values ([(cw ch) (send c get-client-size)])
(send dc set-font small-control-font)
(send dc draw-text on-string 0 (- (/ ch 2) (/ th 2)))))))]))
(define-values (tw th ta td) (send (send color-status-canvas get-dc) get-text-extent on-string small-control-font))
(send color-status-canvas min-width (inexact->exact (ceiling tw)))
color-status-canvas)))
@ -4027,6 +4024,7 @@ module browser threading seems wrong.
(define/public (set-color-status! v?)
(when color-status-canvas
(set! color-valid? v?)
(send (send color-status-canvas get-dc) erase)
(send color-status-canvas on-paint)
(send color-status-canvas flush)))