2007-09-20 18:09:08 -04:00
|
|
|
USING: math ui.gadgets.presentations ui.gadgets tools.test
|
|
|
|
|
prettyprint ui.gadgets.buttons io io.streams.string kernel
|
2008-09-02 02:52:22 -04:00
|
|
|
classes.tuple accessors ;
|
|
|
|
|
IN: ui.gadgets.presentations.tests
|
2007-09-20 18:09:08 -04:00
|
|
|
|
|
|
|
|
[ t ] [
|
2008-08-23 00:20:49 -04:00
|
|
|
"Hi" \ + <presentation> gadget?
|
2007-09-20 18:09:08 -04:00
|
|
|
] unit-test
|
|
|
|
|
|
|
|
|
|
[ "+" ] [
|
|
|
|
|
[
|
2008-09-02 02:52:22 -04:00
|
|
|
\ + f \ pprint <command-button> dup quot>> call
|
2008-02-15 23:20:31 -05:00
|
|
|
] with-string-writer
|
2007-09-20 18:09:08 -04:00
|
|
|
] unit-test
|
