steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Improve C+p

slava 2006-11-21 09:05:59 +00:00
parent 16e7efc481
commit 7937770516
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
library/ui/tools/search.factor
View File

@ -170,13 +170,8 @@ C: history-search ( string seq -- gadget )
: listener-history ( listener -- seq ) : listener-history ( listener -- seq )
listener-gadget-input interactor-history <reversed> ; listener-gadget-input interactor-history <reversed> ;
: history-action ( string -- )
find-listener listener-gadget-input set-editor-text ;
: show-history ( workspace -- ) : show-history ( workspace -- )
dup workspace-listener "" over workspace-listener listener-history <history-search>
[ listener-gadget-input editor-text ] keep listener-history
<history-search>
"History search" show-titled-popup ; "History search" show-titled-popup ;
workspace "toolbar" { workspace "toolbar" {