steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

table gadget row-action bug fixed

db4
Sam Anklesaria 2009-05-13 22:15:33 -05:00
parent db76a7b98d
commit 20d9b1fde3
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/ui/gadgets/tables/tables.factor
View File

@ -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 ] <arrow> ;
M: table (>>selected-value) [ [ 1vector ] change-model ] dip (>>selected-values) ;
M: table (>>selected-value) [ [ 1vector ] <arrow> ] 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 ;