2006-09-29 15:59:06 -04:00
|
|
|
IN: temporary
|
|
|
|
|
USING: gadgets-panes gadgets freetype namespaces kernel
|
|
|
|
|
sequences io test prettyprint ;
|
|
|
|
|
|
|
|
|
|
: maybe-with-freetype
|
|
|
|
|
freetype get [ call ] [ with-freetype ] if ; inline
|
|
|
|
|
|
|
|
|
|
: #children "pane" get gadget-children length ;
|
|
|
|
|
|
|
|
|
|
[
|
|
|
|
|
<pane> "pane" set
|
|
|
|
|
|
|
|
|
|
#children "num-children" set
|
|
|
|
|
|
2006-10-06 17:42:12 -04:00
|
|
|
"pane" get <pane-stream> [ 10000 [ . ] each ] with-stream*
|
2006-09-29 15:59:06 -04:00
|
|
|
|
|
|
|
|
[ t ] [ #children "num-children" get = ] unit-test
|
|
|
|
|
] maybe-with-freetype
|
