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

2010-12-10 11:12:48 -06:00 · 2010-12-10 11:12:48 -06:00 · 32851bddf9
commit 32851bddf9
parent ac8fd51bc4
1 changed files with 1 additions and 0 deletions
--- a/collects/framework/private/frame.rkt
+++ b/collects/framework/private/frame.rkt
@ -2486,6 +2486,7 @@
    (super-new [stretchable-width #f]
               [style '(transparent)])
    
+    (send (get-dc) set-font small-control-font)
    (define-values (indicator-width indicator-height)
      (let-values ([(tw th _1 _2) (send (get-dc) get-text-extent indicator)])
        (values tw th)))