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

fix some switchable-button tooltip problems

Browse Source
This commit is contained in:
Matthew Flatt 2011-01-10 12:26:05 -07:00
parent 4c05bb48f1
commit a28ead9464
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -89,6 +89,7 @@
(unless show? (unless show?
(set! in? #f) (set! in? #f)
(set! down? #f) (set! down? #f)
(update-float #f)
(refresh)) (refresh))
(super on-superwindow-show show?)) (super on-superwindow-show show?))
@ -105,6 +106,7 @@
(refresh) (refresh)
(when (and in? (when (and in?
(not disabled?)) (not disabled?))
(update-float #f)
(callback this))] (callback this))]
[(send evt entering?) [(send evt entering?)
(set! in? #t) (set! in? #t)
@ -145,7 +147,7 @@
(unless (and float-window (unless (and float-window
(equal? new-value? (send float-window is-shown?))) (equal? new-value? (send float-window is-shown?)))
(cond (cond
[in? [new-value?
(unless float-window (unless float-window
(set! float-window (new frame% (set! float-window (new frame%
[label ""] [label ""]
@ -186,8 +188,8 @@
(<= 0 (send evt get-y) ch))]) (<= 0 (send evt get-y) ch))])
(unless (equal? new-in? in?) (unless (equal? new-in? in?)
(set! in? new-in?) (set! in? new-in?)
(update-float in?) (refresh))
(refresh))))) (update-float new-in?))))
(define/override (on-paint) (define/override (on-paint)
(let ([dc (get-dc)]) (let ([dc (get-dc)])