Fix unit test failures

TODO.txt

@@ -1,13 +1,14 @@
 + 0.87:
 
 - callback scheduling issue
-- error window: ENTER hides it
+- error popup obscures input area
+- browser: tile titles should respond to right-clicks and/or have a
+  menu popup button
+- ui docs
 
 + 0.88:
 
 - lisppaste gui
-- browser: tile titles should respond to right-clicks and/or have a
-  menu popup button
 - growable data heap
 - variable width word wrap
 - graphical crossref tool
@@ -19,9 +20,7 @@
 - use crc32 instead of modification date in reload-modules
 - models: don't do redundant work
 - top level window positioning on ms windows
-- crashes:
-  - httpd crash
-  - fep when closing window
+- httpd crash
 - these things are "Too Slow":
   - make-image
   - workspace-window
@@ -36,7 +35,6 @@
 - new windows don't always have focus, eg focus follows mouse
 - recompile get/set/>n/n>/ndrop if needed
 - cross-word type inference
-- ui docs
 - some kind of declarative wiring framework for ui
 - if we're printing a block on multiple lines, break at some words like
   set off on % # , ... and assembler opcodes

core/ui/test/lists.factor

@@ -1,4 +1,4 @@
 IN: temporary
-USING: gadgets-lists models prettyprint math test ;
+USING: gadgets-lists models prettyprint math test kernel ;
 
-[ ] [ [ ] [ 3 + . ] f <model> <list> list-action ] unit-test
+[ ] [ [ drop ] [ 3 + . ] f <model> <list> list-action ] unit-test

core/ui/tools/operations.factor

@@ -129,11 +129,6 @@ M: operation invoke-command
     { +quot+ [ help-gadget call-tool ] }
 } define-operation
 
-[ word? ] H{
-    { +name+ "Edit documentation" }
-    { +quot+ [ <link> edit ] }
-} define-operation
-
 [ word? ] H{
     { +name+ "Usage" }
     { +keyboard+ T{ key-down f { A+ } "u" } }

core/ui/tools/test/listener.factor

@@ -1,12 +1,15 @@
 IN: temporary
 USING: gadgets-listener words arrays namespaces test kernel
-freetype timers gadgets-workspace ;
+freetype timers gadgets-workspace sequences gadgets-text ;
 
 timers [ init-timers ] unless
 
 [
     <listener-gadget> "listener" set
     
+    { "kernel" } [ vocab ] map
+    "listener" get listener-gadget-input set-interactor-use
+    
     [ "dup" ] [ \ dup "listener" get word-completion-string ] unit-test
     
     [ "USE: words word-name" ]