28 lines
707 B
Factor
28 lines
707 B
Factor
|
! Copyright (C) 2005 Slava Pestov.
|
||
|
|
! See http://factor.sf.net/license.txt for BSD license.
|
||
|
|
IN: gadgets
|
||
|
|
USING: errors generic hashtables kernel lists math namespaces
|
||
|
|
sdl ;
|
||
|
|
|
||
|
|
! A stack just lays out all its children on top of each other.
|
||
|
|
TUPLE: stack ;
|
||
|
|
C: stack ( list -- stack )
|
||
|
|
<empty-gadget> over set-delegate
|
||
|
|
swap [ over add-gadget ] each ;
|
||
|
|
|
||
|
|
: max-size ( stack -- w h )
|
||
|
|
[
|
||
|
|
[
|
||
|
|
dup
|
||
|
|
shape-w width [ max ] change
|
||
|
|
shape-h height [ max ] change
|
||
|
|
] each
|
||
|
|
] with-pref-size ;
|
||
|
|
|
||
|
|
M: stack pref-size gadget-children max-size ;
|
||
|
|
|
||
|
|
M: stack layout* ( stack -- )
|
||
|
|
dup gadget-children [
|
||
|
|
>r dup shape-w over shape-h r> resize-gadget
|
||
|
|
] each drop ;
|