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

Clean up listener tool

db4
Slava Pestov 2009-01-06 21:09:40 -06:00
parent 00fad429b5
commit 70a60ef237
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
basis/ui/tools/listener/listener.factor
View File

@ -15,7 +15,7 @@ IN: ui.tools.listener
TUPLE: listener-gadget < track input output scroller ; TUPLE: listener-gadget < track input output scroller ;
: listener-streams ( listener -- input output ) : listener-streams ( listener -- input output )
[ input>> ] [ output>> <pane-stream> ] bi ; [ input>> ] [ output>> ] bi <pane-stream> ;
: <listener-input> ( listener -- gadget ) : <listener-input> ( listener -- gadget )
output>> <pane-stream> <interactor> ; output>> <pane-stream> <interactor> ;
@ -80,14 +80,14 @@ M: listener-operation invoke-command ( target command -- )
GENERIC: word-completion-string ( word -- string ) GENERIC: word-completion-string ( word -- string )
M: word word-completion-string M: word word-completion-string name>> ;
name>> ;
M: method-body word-completion-string : method-completion-string ( word -- string )
"method-generic" word-prop word-completion-string ; "method-generic" word-prop word-completion-string ;
M: engine-word word-completion-string M: method-body word-completion-string method-completion-string ;
"engine-generic" word-prop word-completion-string ;
M: engine-word word-completion-string method-completion-string ;
: use-if-necessary ( word seq -- ) : use-if-necessary ( word seq -- )
over vocabulary>> over and [ over vocabulary>> over and [