Menus

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

diff --git a/library/ui/tools/search.factor b/library/ui/tools/search.factor
index 66a2d6dbeac8cd8167e9350edd8d378208e42ba5..e3e8fd03ef16a76b2916f9af590397ec4fbd3e4c 100644 (file)
--- a/library/ui/tools/search.factor
+++ b/library/ui/tools/search.factor
@@ -63,12 +63,12 @@ M: live-search focusable-child* live-search-field ;
     all-words
     [ word-completions ] curry
     [ word-completion. ]
-    <live-search> ;
+    <live-search> "Word search" <labelled-gadget> ;
 
 : <help-search> ( string action -- gadget )
     [ search-help ]
     [ first ($link) ]
-    <live-search> ;
+    <live-search> "Help search" <labelled-gadget> ;
 
 : string-completion. ( pair quot -- )
     >r first2 over completion>string swap r> call write-object ;
@@ -78,10 +78,10 @@ M: live-search focusable-child* live-search-field ;
     source-files get hash-keys natural-sort
     [ string-completions ] curry
     [ [ <pathname> ] string-completion. ]
-    <live-search> ;
+    <live-search> "Source file search" <labelled-gadget> ;
 
 : <vocabs-search> ( string action -- gadget )
     vocabs
     [ string-completions ] curry
     [ [ <vocab-link> ] string-completion. ]
-    <live-search> ;
+    <live-search> "Vocabulary search" <labelled-gadget> ;