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

Listener fix

slava 2006-10-05 03:46:10 +00:00
parent 7f4dbed78d
commit caae328976
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
library/ui/tools/listener.factor
View File

@ -73,8 +73,11 @@ M: listener-gadget tool-help
: find-listener ( -- listener ) : find-listener ( -- listener )
listener-gadget find-workspace show-tool tool-gadget ; listener-gadget find-workspace show-tool tool-gadget ;
: (call-listener) ( quot listener -- )
listener-gadget-input interactor-call ;
: call-listener ( quot -- ) : call-listener ( quot -- )
find-listener listener-gadget-input interactor-call ; find-listener (call-listener) ;
: listener-run-files ( seq -- ) : listener-run-files ( seq -- )
dup empty? [ dup empty? [
@ -88,10 +91,10 @@ M: listener-gadget tool-help
: clear-listener-output ( listener -- ) : clear-listener-output ( listener -- )
[ listener-gadget-output [ pane-clear ] curry ] keep [ listener-gadget-output [ pane-clear ] curry ] keep
call-listener ; (call-listener) ;
: clear-listener-stack ( listener -- ) : clear-listener-stack ( listener -- )
[ clear ] swap call-listener ; [ clear ] swap (call-listener) ;
: hide-minibuffer ( listener -- ) : hide-minibuffer ( listener -- )
dup listener-gadget-minibuffer dup dup listener-gadget-minibuffer dup