2009-05-30 11:58:32 -04:00
|
|
|
USING: accessors fry kernel lexer math.parser models
|
|
|
|
|
sequences ui.frp.signals ui.gadgets.tracks ui.gadgets
|
|
|
|
|
ui.frp.gadgets ui.gadgets.books ;
|
2009-05-24 10:36:24 -04:00
|
|
|
QUALIFIED: make
|
|
|
|
|
IN: ui.frp.layout
|
|
|
|
|
TUPLE: layout gadget width ; C: <layout> layout
|
|
|
|
|
|
|
|
|
|
GENERIC: , ( uiitem -- )
|
|
|
|
|
M: gadget , f <layout> make:, ;
|
|
|
|
|
M: model , activate-model ;
|
|
|
|
|
|
|
|
|
|
SYNTAX: ,% scan string>number [ <layout> make:, ] curry over push-all ;
|
|
|
|
|
SYNTAX: ->% scan string>number '[ [ _ <layout> make:, ] [ output-model ] bi ] over push-all ;
|
|
|
|
|
|
|
|
|
|
GENERIC: -> ( uiitem -- model )
|
|
|
|
|
M: gadget -> dup , output-model ;
|
|
|
|
|
M: model -> dup , ;
|
|
|
|
|
|
|
|
|
|
: <spacer> ( -- ) <gadget> 1 <layout> make:, ;
|
|
|
|
|
: <box> ( gadgets type -- track )
|
|
|
|
|
[ { } make:make ] dip <track> swap [ [ gadget>> ] [ width>> ] bi track-add ] each ; inline
|
|
|
|
|
: <box*> ( gadgets type -- track ) [ <box> ] [ [ model>> ] map <|> ] bi >>model ; inline
|
|
|
|
|
: <hbox> ( gadgets -- track ) horizontal <box> ; inline
|
|
|
|
|
: <hbox*> ( gadgets -- track ) horizontal <box*> ; inline
|
|
|
|
|
: <vbox> ( gadgets -- track ) vertical <box> ; inline
|
2009-05-30 11:58:32 -04:00
|
|
|
: <vbox*> ( gadgets -- track ) vertical <box*> ; inline
|
|
|
|
|
|
|
|
|
|
: <frp-book> ( gadgets -- book ) { } make:make [ gadget>> ] map f <book> ; inline
|
