core/ui/tools/test/listener.factor

   1 IN: temporary
   2 USING: gadgets-listener words arrays namespaces test kernel
   3 freetype timers gadgets-workspace sequences gadgets-text ;
   4
   5 timers [ init-timers ] unless
   6
   7 [
   8     <listener-gadget> "listener" set
   9
  10     { "kernel" } [ vocab ] map
  11     "listener" get listener-gadget-input set-interactor-use
  12
  13     [ "dup" ] [ \ dup "listener" get word-completion-string ] unit-test
  14
  15     [ "USE: words word-name" ]
  16     [ \ word-name "listener" get word-completion-string ] unit-test
  17 ] with-freetype