core/ui/test/titled-gadget.factor

   1 IN: temporary
   2 USING: gadgets-labels gadgets namespaces test ;
   3
   4 "Hey" <label> "Foo" <titled-gadget> "t" set
   5
   6 [ t ] [ "t" get focusable-child label? ] unit-test
   7 [ "Foo" ] [ "t" get gadget-title ] unit-test