fix problem with switchable-button tool tip

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

View File

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