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:
parent
2e29c09f96
commit
7e1a6ec908
|
@ -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 '())]))
|
||||||
|
|
Loading…
Reference in New Issue
Block a user