More indentation fixes

db4
Slava Pestov 2008-09-27 18:44:51 -05:00
parent 91036cf323
commit b1d82c6c74
6 changed files with 14 additions and 14 deletions

View File

@ -31,6 +31,6 @@ tools.test models.range ;
! should be able to move by a page of 10 ! should be able to move by a page of 10
[ 10 ] [ [ 10 ] [
setup-range 10 over set-range-page-value setup-range 10 over set-range-page-value
1 over move-by-page range-value 1 over move-by-page range-value
] unit-test ] unit-test

View File

@ -25,6 +25,6 @@ M: book model-changed ( model book -- )
M: book pref-dim* ( book -- dim ) children>> pref-dims max-dim ; M: book pref-dim* ( book -- dim ) children>> pref-dims max-dim ;
M: book layout* ( book -- ) M: book layout* ( book -- )
[ children>> ] [ dim>> ] bi [ >>dim drop ] curry each ; [ children>> ] [ dim>> ] bi [ >>dim drop ] curry each ;
M: book focusable-child* ( book -- child/t ) current-page ; M: book focusable-child* ( book -- child/t ) current-page ;

View File

@ -115,7 +115,7 @@ C: <pane-stream> pane-stream
GENERIC: write-gadget ( gadget stream -- ) GENERIC: write-gadget ( gadget stream -- )
M: pane-stream write-gadget ( gadget pane-stream -- ) M: pane-stream write-gadget ( gadget pane-stream -- )
pane>> current>> swap add-gadget drop ; pane>> current>> swap add-gadget drop ;
M: style-stream write-gadget M: style-stream write-gadget
stream>> write-gadget ; stream>> write-gadget ;
@ -143,7 +143,7 @@ M: style-stream write-gadget
TUPLE: pane-control < pane quot ; TUPLE: pane-control < pane quot ;
M: pane-control model-changed ( model pane-control -- ) M: pane-control model-changed ( model pane-control -- )
[ value>> ] [ dup quot>> ] bi* with-pane ; [ value>> ] [ dup quot>> ] bi* with-pane ;
: <pane-control> ( model quot -- pane ) : <pane-control> ( model quot -- pane )
pane-control new-pane pane-control new-pane
@ -338,7 +338,7 @@ M: paragraph stream-format
GENERIC: sloppy-pick-up* ( loc gadget -- n ) GENERIC: sloppy-pick-up* ( loc gadget -- n )
M: pack sloppy-pick-up* ( loc gadget -- n ) M: pack sloppy-pick-up* ( loc gadget -- n )
[ orientation>> ] [ children>> ] bi (fast-children-on) ; [ orientation>> ] [ children>> ] bi (fast-children-on) ;
M: gadget sloppy-pick-up* M: gadget sloppy-pick-up*
children>> [ inside? ] with find-last drop ; children>> [ inside? ] with find-last drop ;

View File

@ -44,11 +44,11 @@ M: track layout* ( track -- ) dup track-layout pack-layout ;
[ >fixnum ] map ; [ >fixnum ] map ;
M: track pref-dim* ( gadget -- dim ) M: track pref-dim* ( gadget -- dim )
[ track-pref-dims-1 ] [ track-pref-dims-1 ]
[ [ alloted-dim ] [ track-pref-dims-2 ] bi v+ ] [ [ alloted-dim ] [ track-pref-dims-2 ] bi v+ ]
[ orientation>> ] [ orientation>> ]
tri tri
set-axis ; set-axis ;
: track-add ( track gadget constraint -- track ) : track-add ( track gadget constraint -- track )
pick sizes>> push add-gadget ; pick sizes>> push add-gadget ;

View File

@ -30,8 +30,8 @@ TUPLE: listener-gadget < track input output stack ;
f track-add ; f track-add ;
: welcome. ( -- ) : welcome. ( -- )
"If this is your first time with Factor, please read the " print "If this is your first time with Factor, please read the " print
"handbook" ($link) "." print nl ; "handbook" ($link) "." print nl ;
M: listener-gadget focusable-child* M: listener-gadget focusable-child*
input>> ; input>> ;

View File

@ -19,7 +19,7 @@ IN: ui.tools.search.tests
] with-grafted-gadget ; ] with-grafted-gadget ;
: test-live-search ( gadget quot -- ? ) : test-live-search ( gadget quot -- ? )
>r update-live-search dup assert-non-empty r> all? ; >r update-live-search dup assert-non-empty r> all? ;
[ t ] [ [ t ] [
"swp" all-words f <definition-search> "swp" all-words f <definition-search>