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

ui.gadgets.traceback: Cleanup

db4
Slava Pestov 2009-02-05 04:12:57 -06:00
parent 24b7437ff7
commit 64bb5b45c4
1 changed files with 8 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
basis/ui/tools/traceback/traceback.factor
View File

@ -25,17 +25,15 @@ TUPLE: traceback-gadget < track ;
M: traceback-gadget pref-dim* drop { 550 600 } ;
: <traceback-gadget> ( model -- gadget )
vertical traceback-gadget new-track
swap >>model
dup model>>
horizontal <track>
over <datastack-display> 1/2 track-add
swap <retainstack-display> 1/2 track-add
[ vertical traceback-gadget new-track ] dip
[ >>model ]
[
[ horizontal <track> ] dip
[ <datastack-display> 1/2 track-add ]
[ <retainstack-display> 1/2 track-add ] bi
1/3 track-add
dup model>> <callstack-display> 2/3 track-add
]
[ <callstack-display> 2/3 track-add ] tri
add-toolbar ;
: variables ( traceback -- )