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

fix problem with switchable-button tool tip

Browse Source 
Closes PR 12562

Merge to v5.3.4
This commit is contained in:
Matthew Flatt 2013-04-19 08:19:47 -06:00
parent b9ff55b7e1
commit ff580c212c
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/mrlib/switchable-button.rkt
View File

@ -44,11 +44,12 @@
(send dc set-font font)))) (send dc set-font font))))
(define/override (on-event evt) (define/override (on-event evt)
(show #f)) (send (get-top-level-window) show #f))
(inherit stretchable-width stretchable-height (inherit stretchable-width stretchable-height
min-width min-height min-width min-height
get-client-size get-dc show) get-client-size get-dc
get-top-level-window)
(super-new) (super-new)
(let-values ([(tw th _1 _2) (send (get-dc) get-text-extent label small-control-font)]) (let-values ([(tw th _1 _2) (send (get-dc) get-text-extent label small-control-font)])
(min-width (floor (inexact->exact (+ tw 4)))) (min-width (floor (inexact->exact (+ tw 4))))