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

avoiding flashing from unecessary update of disabled buttons

Browse Source 
svn: r9891
This commit is contained in:
Matthew Flatt 2008-05-19 14:03:21 +00:00
parent f1390fa699
commit 721a846cef
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/mrlib/switchable-button.ss
View File

@ -93,11 +93,13 @@
[(send evt entering?) [(send evt entering?)
(set! in? #t) (set! in? #t)
(update-float #t) (update-float #t)
(refresh)] (unless disabled?
(refresh))]
[(send evt leaving?) [(send evt leaving?)
(set! in? #f) (set! in? #f)
(update-float #f) (update-float #f)
(refresh)] (unless disabled?
(refresh))]
[(send evt moving?) [(send evt moving?)
(update-in evt)])) (update-in evt)]))