38 lines
1015 B
Factor
38 lines
1015 B
Factor
|
! Copyright (C) 2005 Slava Pestov.
|
||
|
|
! See http://factor.sf.net/license.txt for BSD license.
|
||
|
|
IN: gadgets
|
||
|
|
USING: generic kernel matrices sequences ;
|
||
|
|
|
||
|
|
TUPLE: divider splitter ;
|
||
|
|
|
||
|
|
C: divider ( splitter -- divider )
|
||
|
|
[ set-divider-splitter ] keep
|
||
|
|
<plain-gadget> over set-delegate
|
||
|
|
dup t reverse-video set-paint-prop ;
|
||
|
|
|
||
|
|
M: divider pref-size drop 16 16 ;
|
||
|
|
|
||
|
|
TUPLE: splitter vector first divider second ;
|
||
|
|
|
||
|
|
C: splitter ( first second vector -- )
|
||
|
|
[ set-splitter-vector ] keep
|
||
|
|
[ set-splitter-second ] keep
|
||
|
|
[ set-splitter-first ] keep
|
||
|
|
[ dup <divider> swap set-splitter-divider ] keep ;
|
||
|
|
|
||
|
|
: splitter-pref-dims ( splitter -- dim dim dim )
|
||
|
|
dup splitter-first pref-dim
|
||
|
|
over splitter-divider pref-dim
|
||
|
|
rot splitter-second pref-dim ;
|
||
|
|
|
||
|
|
: set-axis ( x y axis -- v )
|
||
|
|
2dup v* >r >r drop dup r> v* v- r> v+ ;
|
||
|
|
|
||
|
|
M: splitter pref-size ( splitter -- w h )
|
||
|
|
[ splitter-pref-dims 3dup vmax vmax >r v+ v+ r> ] keep
|
||
|
|
splitter-vector set-axis 3unseq drop ;
|
||
|
|
|
||
|
|
M: splitter layout* ( splitter -- )
|
||
|
|
|
||
|
|
;
|