From 20d9b1fde34b1f9caaad096da2935f10382b7a07 Mon Sep 17 00:00:00 2001 From: Sam Anklesaria Date: Wed, 13 May 2009 22:15:33 -0500 Subject: [PATCH] table gadget row-action bug fixed --- basis/ui/gadgets/tables/tables.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/basis/ui/gadgets/tables/tables.factor b/basis/ui/gadgets/tables/tables.factor index 831a643377..bba970fb76 100644 --- a/basis/ui/gadgets/tables/tables.factor +++ b/basis/ui/gadgets/tables/tables.factor @@ -56,7 +56,7 @@ GENERIC: (>>selected-value) ( val table -- ) : >>selected-value ( table val -- table ) over (>>selected-value) ; M: table selected-value>> selected-values>> [ [ f ] [ peek ] if-empty ] ; -M: table (>>selected-value) [ [ 1vector ] change-model ] dip (>>selected-values) ; +M: table (>>selected-value) [ [ 1vector ] ] dip (>>selected-values) ; M: table selected-index>> selected-indices>> [ f ] [ peek ] if-empty ; M: table (>>selected-index) [ 1vector ] dip (>>selected-indices) ; @@ -342,7 +342,7 @@ M: table model-changed PRIVATE> : row-action ( table -- ) - dup [ selected-rows peek ] + dup selected-row [ swap [ action>> call( value -- ) ] [ dup hook>> call( table -- ) ] bi ] [ 2drop ] if ;