Improve C+p

2006-11-21 09:05:59 +00:00 · 2006-11-21 09:05:59 +00:00 · 7937770516
parent 16e7efc481
commit 7937770516
1 changed files with 1 additions and 6 deletions
--- a/library/ui/tools/search.factor
+++ b/library/ui/tools/search.factor
@ -170,13 +170,8 @@ C: history-search ( string seq -- gadget )
 : listener-history ( listener -- seq )
    listener-gadget-input interactor-history <reversed> ;

-: history-action ( string -- )
-    find-listener listener-gadget-input set-editor-text ;
-
 : show-history ( workspace -- )
-    dup workspace-listener
-    [ listener-gadget-input editor-text ] keep listener-history
-    <history-search>
+    "" over workspace-listener listener-history <history-search>
    "History search" show-titled-popup ;

 workspace "toolbar" {