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

Tweak listener GUI layout

db4
Slava Pestov 2008-11-25 23:05:19 -06:00
parent f3cdd650e7
commit 4e9495a7e7
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

@ -6,9 +6,9 @@ listener debugger threads boxes concurrency.flags math arrays
generic accessors combinators assocs fry ui.commands ui.gadgets generic accessors combinators assocs fry ui.commands ui.gadgets
ui.gadgets.editors ui.gadgets.labelled ui.gadgets.panes ui.gadgets.editors ui.gadgets.labelled ui.gadgets.panes
ui.gadgets.buttons ui.gadgets.scrollers ui.gadgets.packs ui.gadgets.buttons ui.gadgets.scrollers ui.gadgets.packs
ui.gadgets.tracks ui.gadgets.borders ui.gestures ui.operations ui.gadgets.tracks ui.gadgets.borders ui.gadgets.frames
ui.tools.browser ui.tools.interactor ui.tools.inspector ui.gadgets.grids ui.gestures ui.operations ui.tools.browser
ui.tools.workspace ; ui.tools.interactor ui.tools.inspector ui.tools.workspace ;
IN: ui.tools.listener IN: ui.tools.listener
TUPLE: listener-gadget < track input output ; TUPLE: listener-gadget < track input output ;
@ -153,9 +153,9 @@ M: engine-word word-completion-string
dup <listener-input> >>input ; dup <listener-input> >>input ;
: <listener-scroller> ( listener -- scroller ) : <listener-scroller> ( listener -- scroller )
<filled-pile> <frame>
over output>> add-gadget over output>> @top grid-add
swap input>> add-gadget swap input>> @center grid-add
<scroller> ; <scroller> ;
: <listener-gadget> ( -- gadget ) : <listener-gadget> ( -- gadget )