fix problem with switchable-button tool tip
Closes PR 12562 Merge to v5.3.4
This commit is contained in:
parent
b9ff55b7e1
commit
ff580c212c
|
@ -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))))
|
||||
|
|
Loading…
Reference in New Issue
Block a user