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

ui.tools.listener: rewrite <listener-gadget>

db4
Eduardo Cavazos 2008-07-14 17:33:03 -05:00
parent 7a5199d010
commit 4809a69d7f
1 changed files with 12 additions and 9 deletions
extra/ui/tools/listener

21
extra/ui/tools/listener/listener.factor
View File

@ -12,9 +12,9 @@ IN: ui.tools.listener
TUPLE: listener-gadget < track input output stack ;
: listener-output, ( -- )
<scrolling-pane> g-> set-listener-gadget-output
<scroller> "Output" <labelled-gadget> 1 track, ;
: listener-output, ( listener -- listener )
<scrolling-pane> >>output
dup output>> <scroller> "Output" <labelled-gadget> 1 track-add* ;
: listener-streams ( listener -- input output )
[ input>> ] [ output>> <pane-stream> ] bi ;
@ -22,10 +22,12 @@ TUPLE: listener-gadget < track input output stack ;
: <listener-input> ( listener -- gadget )
output>> <pane-stream> <interactor> ;
: listener-input, ( -- )
g <listener-input> g-> set-listener-gadget-input
: listener-input, ( listener -- listener )
dup <listener-input> >>input
dup input>>
{ 0 100 } <limited-scroller>
"Input" <labelled-gadget> f track, ;
"Input" <labelled-gadget>
f track-add* ;
: welcome. ( -- )
"If this is your first time with Factor, please read the " print
@ -169,10 +171,11 @@ M: stack-display tool-scroller
f <model> swap set-listener-gadget-stack ;
: <listener-gadget> ( -- gadget )
{ 0 1 } listener-gadget new-track
{ 0 1 } listener-gadget new-track
dup init-listener
[ listener-output, listener-input, ] make-gadget ;
listener-output,
listener-input, ;
: listener-help ( -- ) "ui-listener" help-window ;
\ listener-help H{ { +nullary+ t } } define-command