Mouse highlight now follows selection
parent
578e2d7081
commit
37118a4cde
|
@ -158,7 +158,7 @@ M: table model-changed
|
||||||
: (select-row) ( table row -- )
|
: (select-row) ( table row -- )
|
||||||
over validate-row
|
over validate-row
|
||||||
[ [ thin-row-rect ] [ drop ] 2bi scroll>rect ]
|
[ [ thin-row-rect ] [ drop ] 2bi scroll>rect ]
|
||||||
[ >>selected-index relayout-1 ]
|
[ [ >>selected-index ] [ >>mouse-index ] bi relayout-1 ]
|
||||||
2bi ;
|
2bi ;
|
||||||
|
|
||||||
: mouse-row ( table -- n )
|
: mouse-row ( table -- n )
|
||||||
|
|
Loading…
Reference in New Issue