fixes the mouse over problem mentioned in PR 11147.

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

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 '())]))