From 37118a4cde21099caaaaea3ec896fc3145a9400a Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Sun, 21 Dec 2008 14:10:09 -0600 Subject: [PATCH] Mouse highlight now follows selection --- basis/ui/gadgets/tables/tables.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/basis/ui/gadgets/tables/tables.factor b/basis/ui/gadgets/tables/tables.factor index 8122a2d6a8..b83b8e26bc 100644 --- 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 )