basis/ui/gadgets/presentations/presentations-tests.factor

   1 USING: math ui.gadgets.presentations ui.gadgets tools.test
   2 prettyprint ui.gadgets.buttons io io.streams.string kernel
   3 classes.tuple accessors ;
   4
   5 { t } [
   6     "Hi" \ + <presentation> gadget?
   7 ] unit-test
   8
   9 { "+" } [
  10     [
  11         \ + f \ pprint <command-button> dup quot>> call
  12     ] with-string-writer
  13 ] unit-test