30 lines
753 B
Factor
30 lines
753 B
Factor
! Copyright (C) 2006 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
IN: gadgets-books
|
|
USING: gadgets gadgets-controls gadgets-panes gadgets-scrolling
|
|
kernel sequences models ;
|
|
|
|
TUPLE: book pages ;
|
|
|
|
: get-page ( n book -- page ) book-pages nth ;
|
|
|
|
M: book model-changed ( book -- )
|
|
[ control-model model-value ] keep
|
|
[ gadget-child unparent ] keep
|
|
[ get-page ] keep
|
|
[ control-self add-gadget ] keep
|
|
request-focus ;
|
|
|
|
C: book ( pages -- book )
|
|
dup 0 <model> delegate>control
|
|
dup dup set-control-self
|
|
[ set-book-pages ] keep
|
|
dup model-changed ;
|
|
|
|
M: book pref-dim* gadget-child pref-dim ;
|
|
|
|
M: book layout*
|
|
dup rect-dim swap gadget-child set-layout-dim ;
|
|
|
|
M: book focusable-child* gadget-child ;
|