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

ui.tools.listener: rewrite <stack-display>

db4
Eduardo Cavazos 2008-07-14 16:37:06 -05:00
parent b1039c9df4
commit a1e0be33b2
1 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -120,14 +120,13 @@ M: engine-word word-completion-string
TUPLE: stack-display < track ;
: <stack-display> ( -- gadget )
g workspace-listener
{ 0 1 } stack-display new-track
[
dup <toolbar> f track,
stack>> [ [ stack. ] curry try ]
t "Data stack" <labelled-pane> 1 track,
] make-gadget ;
: <stack-display> ( workspace -- gadget )
listener>>
{ 0 1 } stack-display new-track
over <toolbar> f track-add*
swap
stack>> [ [ stack. ] curry try ] t "Data stack" <labelled-pane>
1 track-add* ;
M: stack-display tool-scroller
find-workspace workspace-listener tool-scroller ;