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

set the font for the flashing 'P' to be the small-control-font

Browse Source
This commit is contained in:
Robby Findler 2010-12-10 11:12:48 -06:00
parent ac8fd51bc4
commit 32851bddf9
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/framework/private/frame.rkt
View File

@ -2486,6 +2486,7 @@
(super-new [stretchable-width #f] (super-new [stretchable-width #f]
[style '(transparent)]) [style '(transparent)])
(send (get-dc) set-font small-control-font)
(define-values (indicator-width indicator-height) (define-values (indicator-width indicator-height)
(let-values ([(tw th _1 _2) (send (get-dc) get-text-extent indicator)]) (let-values ([(tw th _1 _2) (send (get-dc) get-text-extent indicator)])
(values tw th))) (values tw th)))