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

Future visualizer - only redraw overlay when moused-over event changes

Browse Source
This commit is contained in:
James Swaine 2012-07-19 17:05:04 -05:00
parent ee426f7ecb
commit 0b8bccc8d4
2 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/future-visualizer/private/visualizer-gui.rkt
View File

@ -153,8 +153,12 @@
[pict-builder (λ (vregion) (timeline-pict-for-trace-data vregion the-trace frameinfo segments))] [pict-builder (λ (vregion) (timeline-pict-for-trace-data vregion the-trace frameinfo segments))]
[hover-handler (λ (x y vregion) [hover-handler (λ (x y vregion)
(let ([seg (find-seg-for-coords x y timeline-mouse-index)]) (let ([seg (find-seg-for-coords x y timeline-mouse-index)])
(cond
[(equal? seg hover-seg) #f]
[else
(set! hover-seg seg) (set! hover-seg seg)
(post-event listener-table 'segment-hover timeline-panel seg)))] (post-event listener-table 'segment-hover timeline-panel seg)
#t])))]
[click-handler (λ (x y vregion) [click-handler (λ (x y vregion)
(let ([seg (find-seg-for-coords x y timeline-mouse-index)]) (let ([seg (find-seg-for-coords x y timeline-mouse-index)])
(set! tacked-seg seg) (set! tacked-seg seg)