library/ui/test/listener.factor

   1 IN: temporary
   2 USING: gadgets-listener words arrays namespaces test kernel ;
   3
   4 <listener-gadget> "listener" set
   5
   6 "kernel" vocab 1array "listener" get set-listener-gadget-use
   7
   8 [ "dup" ] [ \ dup "listener" get completion-string ] unit-test
   9
  10 [ "USE: words word-name" ]
  11 [ \ word-name "listener" get completion-string ] unit-test
  12
  13 [ ] [ "listener" get show-history ] unit-test