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

FV: Fix hover display "stickiness"

Browse Source
This commit is contained in:
James Swaine 2012-10-10 11:07:09 -05:00
parent e57155d21e
commit 7d0578fc3b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -178,7 +178,7 @@
[else
(set! hover-seg seg)
(post-event listener-table 'segment-hover timeline-panel seg)
seg])))]
(if (not seg) #t seg)])))]
[click-handler (λ (x y vregion)
(let ([seg (find-seg-for-coords x y timeline-mouse-index)])
(set! tacked-seg seg)
@ -222,7 +222,7 @@
(find-node-for-coords x
y
(graph-layout-nodes creation-tree-layout)))
hovered-graph-node]))]
(if (not hovered-graph-node) #t hovered-graph-node)]))]
#;[click-handler (λ (x y vregion)
(define fid (find-fid-for-coords
x y (graph-layout-nodes creation-tree-layout)