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 } ; M: traceback-gadget pref-dim* drop { 550 600 } ;
: <traceback-gadget> ( model -- gadget ) : <traceback-gadget> ( model -- gadget )
vertical traceback-gadget new-track [ vertical traceback-gadget new-track ] dip
swap >>model [ >>model ]
[
dup model>> [ horizontal <track> ] dip
horizontal <track> [ <datastack-display> 1/2 track-add ]
over <datastack-display> 1/2 track-add [ <retainstack-display> 1/2 track-add ] bi
swap <retainstack-display> 1/2 track-add
1/3 track-add 1/3 track-add
]
dup model>> <callstack-display> 2/3 track-add [ <callstack-display> 2/3 track-add ] tri
add-toolbar ; add-toolbar ;
: variables ( traceback -- ) : variables ( traceback -- )