UI completion cleanups

[factor.git] / library / ui / tools / listener.factor

diff --git a/library/ui/tools/listener.factor b/library/ui/tools/listener.factor
index 4a7cc763aef13ee6532000e0d7a9ed11d333f728..3d5390f5b33d453b77bb04da5df03e41c493154a 100644 (file)
--- a/library/ui/tools/listener.factor
+++ b/library/ui/tools/listener.factor
@@ -108,14 +108,18 @@ M: listener-gadget tool-help
 
 : show-word-search ( listener action -- )
     >r dup listener-gadget-input selected-word r>
-    <word-search> swap show-minibuffer ;
+    <word-search> "Word search" <labelled-gadget>
+    swap show-minibuffer ;
 
 : show-source-files-search ( listener action -- )
-    "" swap <source-files-search> swap show-minibuffer ;
+    "" swap <source-files-search>
+    "Source file search" <labelled-gadget>
+    swap show-minibuffer ;
 
 : show-vocabs-search ( listener action -- )
     >r dup listener-gadget-input selected-word r>
-    <vocabs-search> swap show-minibuffer ;
+    <vocabs-search> "Vocabulary search" <labelled-gadget>
+    swap show-minibuffer ;
 
 : show-list ( seq presenter action listener -- )
     >r >r >r <model> r> r> <list> <scroller> r>