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

removed occurences of peek in new tables

db4
Sam Anklesaria 2009-05-26 16:56:05 -05:00
parent e2c99be00b
commit 9755132d01
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/inverse/vectors/vectors.factor
View File

@ -9,7 +9,7 @@ IN: inverse.vectors
\ 1vector [ 1 undo-nvector ] define-inverse \ 1vector [ 1 undo-nvector ] define-inverse
\ peek [ 1vector ] define-inverse \ last [ 1vector ] define-inverse
! if is too general to undo, but its derivatives aren't ! if is too general to undo, but its derivatives aren't

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

@ -49,7 +49,7 @@ mouse-index
focused? focused?
multiple-selection? ; multiple-selection? ;
: in>out ( vector -- val/f ) [ f ] [ peek ] if-empty ; : in>out ( vector -- val/f ) [ f ] [ last ] if-empty ;
: out>in ( val/f -- vector ) [ 1vector ] [ V{ } clone ] if* ; : out>in ( val/f -- vector ) [ 1vector ] [ V{ } clone ] if* ;
IN: accessors IN: accessors
SLOT: selected-value SLOT: selected-value
@ -264,7 +264,7 @@ PRIVATE>
: selected-rows ( table -- {value} ) : selected-rows ( table -- {value} )
[ (selected-rows) ] [ renderer>> ] bi [ row-value ] curry map ; [ (selected-rows) ] [ renderer>> ] bi [ row-value ] curry map ;
: multiple>single ( values -- value/f ? ) [ f f ] [ peek t ] if-empty ; : multiple>single ( values -- value/f ? ) [ f f ] [ last t ] if-empty ;
: (selected-row) ( table -- value/f ? ) (selected-rows) multiple>single ; : (selected-row) ( table -- value/f ? ) (selected-rows) multiple>single ;
: selected-row ( table -- value/f ? ) selected-rows multiple>single ; : selected-row ( table -- value/f ? ) selected-rows multiple>single ;
@ -306,7 +306,7 @@ PRIVATE>
M: table model-changed M: table model-changed
nip dup update-selected-indices [ V{ } clone ] unless* { nip dup update-selected-indices [ V{ } clone ] unless* {
[ >>selected-indices f >>mouse-index drop ] [ >>selected-indices f >>mouse-index drop ]
[ [ f ] [ peek ] if-empty show-row-summary ] [ [ f ] [ last ] if-empty show-row-summary ]
[ drop update-selected-values ] [ drop update-selected-values ]
[ drop relayout ] [ drop relayout ]
} 2cleave ; } 2cleave ;