2006-09-29 15:59:06 -04:00
|
|
|
IN: temporary
|
2006-10-26 00:07:18 -04:00
|
|
|
USING: alien gadgets-panes gadgets freetype namespaces kernel
|
2019-10-18 09:05:08 -04:00
|
|
|
sequences io test prettyprint definitions help ;
|
2006-09-29 15:59:06 -04:00
|
|
|
|
|
|
|
|
: #children "pane" get gadget-children length ;
|
|
|
|
|
|
|
|
|
|
[
|
2019-10-18 09:05:08 -04:00
|
|
|
[ ] [ <pane> "pane" set ] unit-test
|
2006-09-29 15:59:06 -04:00
|
|
|
|
2019-10-18 09:05:08 -04:00
|
|
|
[ ] [ #children "num-children" set ] unit-test
|
2006-09-29 15:59:06 -04:00
|
|
|
|
2019-10-18 09:05:08 -04:00
|
|
|
[ ] [
|
|
|
|
|
"pane" get <pane-stream> [ 10000 [ . ] each ] with-stream*
|
|
|
|
|
] unit-test
|
2006-09-29 15:59:06 -04:00
|
|
|
|
|
|
|
|
[ t ] [ #children "num-children" get = ] unit-test
|
2019-10-18 09:05:08 -04:00
|
|
|
|
|
|
|
|
: test-gadget-text
|
|
|
|
|
dup H{ } make-pane gadget-text
|
|
|
|
|
swap string-out "\n" ?tail drop "\n" ?tail drop = ;
|
|
|
|
|
|
|
|
|
|
[ t ] [ [ "hello" write ] test-gadget-text ] unit-test
|
|
|
|
|
[ t ] [ [ "hello" pprint ] test-gadget-text ] unit-test
|
|
|
|
|
[ t ] [ [ [ 1 2 3 ] pprint ] test-gadget-text ] unit-test
|
|
|
|
|
[ t ] [ [ \ = see ] test-gadget-text ] unit-test
|
|
|
|
|
[ t ] [ [ \ = help ] test-gadget-text ] unit-test
|
|
|
|
|
[ t ] [ [ "sequences" help ] test-gadget-text ] unit-test
|
|
|
|
|
|
2019-10-18 09:05:04 -04:00
|
|
|
] with-freetype
|
