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

ui.gadgets.tables: fix stack effect names.

db4
John Benediktsson 2012-09-20 17:54:01 -07:00
parent 6d447cb939
commit 98a8230d1c
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -185,10 +185,10 @@ M: table layout*
dup renderer>> column-alignment dup renderer>> column-alignment
[ ] [ column-widths>> length 0 <repetition> ] ?if ; [ ] [ column-widths>> length 0 <repetition> ] ?if ;
:: row-font ( row ind table -- font ) :: row-font ( row index table -- font )
table font>> clone table font>> clone
row table renderer>> row-color [ >>foreground ] when* row table renderer>> row-color [ >>foreground ] when*
ind table selection-index>> value>> = index table selection-index>> value>> =
[ table selection-color>> >>background ] when ; [ table selection-color>> >>background ] when ;
: draw-columns ( columns widths alignment font gap -- ) : draw-columns ( columns widths alignment font gap -- )
@ -227,7 +227,7 @@ M: table pref-dim*
[ compute-column-widths drop ] keep [ compute-column-widths drop ] keep
[ line-height ] [ control-value length ] bi * 2array ; [ line-height ] [ control-value length ] bi * 2array ;
: nth-row ( row table -- value/f ? ) : nth-row ( index table -- value/f ? )
over [ control-value nth t ] [ 2drop f f ] if ; over [ control-value nth t ] [ 2drop f f ] if ;
PRIVATE> PRIVATE>