factor/basis/ui/gadgets/books/books.factor

! Copyright (C) 2006, 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors kernel sequences models ui.gadgets
math.geometry.rect fry ;
IN: ui.gadgets.books

TUPLE: book < gadget ;

: hide-all ( book -- ) children>> [ hide-gadget ] each ;

: current-page ( book -- gadget ) [ control-value ] keep nth-gadget ;

M: book model-changed ( model book -- )
    nip
    dup hide-all
    dup current-page show-gadget
    relayout ;

: new-book ( model class -- book )
    new-gadget
        swap >>model ; inline

: <book> ( pages model -- book )
    book new-book swap add-gadgets ;

: <empty-book> ( model -- book )
    book new-book ;

M: book pref-dim* ( book -- dim ) children>> pref-dims max-dim ;

M: book layout* ( book -- )
    [ children>> ] [ dim>> ] bi '[ _ >>dim drop ] each ;

M: book focusable-child* ( book -- child/t ) current-page ;