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

fixes the mouse over problem mentioned in PR 11147.

Browse Source 
not really sure the best way to fix the getting-smaller problem.
This commit is contained in:
Robby Findler 2010-08-30 20:16:14 -05:00
parent 2e29c09f96
commit 7e1a6ec908
1 changed files with 8 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
collects/plai/private/gc-gui.rkt
View File

@ -304,15 +304,14 @@
(cond (cond
[(and mouse-x mouse-y) [(and mouse-x mouse-y)
(let-values ([(i j) (mouse-xy->ij mouse-x mouse-y)]) (let-values ([(i j) (mouse-xy->ij mouse-x mouse-y)])
(if (and i j) (let ([index (and i j (+ (* j (vector-length column-widths)) i))])
(let ([index (+ (* j (vector-length column-widths)) i)]) (cond
(update-arrows (find-connections index)) [(and index (< index (vector-length heap-vec)))
(update-highlighted-cells (update-arrows (find-connections index))
(cond (update-highlighted-cells (cons index (index->nexts index)))]
[(< index (vector-length heap-vec)) [else
(cons index (index->nexts index))] (update-highlighted-cells '())
[else '()]))) (update-arrows '())])))]
(update-highlighted-cells '())))]
[else [else
(update-highlighted-cells '()) (update-highlighted-cells '())
(update-arrows '())])) (update-arrows '())]))