1 ! Copyright (C) 2006, 2008 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: accessors kernel sequences models ui.gadgets
9 : hide-all ( book -- ) children>> [ hide-gadget ] each ;
11 : current-page ( book -- gadget ) [ control-value ] keep nth-gadget ;
13 M: book model-changed ( model book -- )
16 dup current-page show-gadget
19 : new-book ( model class -- book )
23 : <book> ( pages model -- book )
24 book new-book swap add-gadgets ;
26 : <empty-book> ( model -- book )
29 M: book pref-dim* ( book -- dim ) children>> pref-dims max-dims ;
31 M: book layout* ( book -- )
32 [ children>> ] [ dim>> ] bi '[ _ >>dim drop ] each ;
34 M: book focusable-child* ( book -- child/t ) current-page ;