Swapping call order of 'hook' and 'action' row actions

Hugo Schmitt 2010-01-23 19:43:10 -02:00 committed by John Benediktsson
parent c5243a079b
commit 5ed90a47cb
1 changed files with 1 additions and 1 deletions

View File

@ -319,7 +319,7 @@ PRIVATE>
: row-action ( table -- )
dup selected-row
[ swap [ action>> call( value -- ) ] [ dup hook>> call( table -- ) ] bi ]
[ swap [ dup hook>> call( table -- ) ] [ action>> call( value -- ) ] bi ]
[ 2drop ]
if ;