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

ui.frp: no automatic baseline alignment

db4
Sam Anklesaria 2009-05-09 14:23:08 -05:00
parent 2678c75ac2
commit b3c84be973
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/ui/frp/frp.factor
View File

@ -1,7 +1,7 @@
USING: accessors arrays colors fonts fry kernel math models USING: accessors arrays colors fonts fry kernel math models
models.product monads sequences ui.gadgets ui.gadgets.buttons models.product monads sequences ui.gadgets ui.gadgets.buttons
ui.gadgets.editors ui.gadgets.line-support ui.gadgets.tables ui.gadgets.editors ui.gadgets.line-support ui.gadgets.tables
ui.gadgets.tracks ui.render ui.gadgets.scrollers ui.baseline-alignment ui.gadgets.tracks ui.render ui.gadgets.scrollers
math.parser lexer ; math.parser lexer ;
QUALIFIED: make QUALIFIED: make
IN: ui.frp IN: ui.frp
@ -91,7 +91,7 @@ M: model -> dup , ;
: <spacer> ( -- ) <gadget> 1 <layout> make:, ; : <spacer> ( -- ) <gadget> 1 <layout> make:, ;
: <box> ( gadgets type -- track ) : <box> ( gadgets type -- track )
[ { } make:make ] dip <track> +baseline+ >>align swap [ [ gadget>> ] [ width>> ] bi track-add ] each ; inline [ { } make:make ] dip <track> swap [ [ gadget>> ] [ width>> ] bi track-add ] each ; inline
: <box*> ( gadgets type -- track ) [ <box> ] [ [ model>> ] map <product> ] bi >>model ; inline : <box*> ( gadgets type -- track ) [ <box> ] [ [ model>> ] map <product> ] bi >>model ; inline
: <hbox> ( gadgets -- track ) horizontal <box> ; inline : <hbox> ( gadgets -- track ) horizontal <box> ; inline
: <hbox*> ( gadgets -- track ) horizontal <box*> ; inline : <hbox*> ( gadgets -- track ) horizontal <box*> ; inline