|
IN: temporary
|
|
USING: math gadgets-presentations gadgets generic test
|
|
prettyprint gadgets-buttons io kernel ;
|
|
|
|
[ t ] [
|
|
"Hi" \ + <presentation> [ gadget? ] is?
|
|
] unit-test
|
|
|
|
[ "+" ] [
|
|
[
|
|
\ +
|
|
"Test" f [ pprint ] <command> <command-button>
|
|
dup button-quot call
|
|
] string-out
|
|
] unit-test
|