Mouse highlight now follows selection

2008-12-21 14:10:09 -06:00 · 2008-12-21 14:10:09 -06:00 · 37118a4cde
parent 578e2d7081
commit 37118a4cde
1 changed files with 1 additions and 1 deletions
--- a/basis/ui/gadgets/tables/tables.factor
+++ b/basis/ui/gadgets/tables/tables.factor
@ -158,7 +158,7 @@ M: table model-changed
 : (select-row) ( table row -- )
    over validate-row
    [ [ thin-row-rect ] [ drop ] 2bi scroll>rect ]
-    [ >>selected-index relayout-1 ]
+    [ [ >>selected-index ] [ >>mouse-index ] bi relayout-1 ]
    2bi ;

 : mouse-row ( table -- n )