Handbook
Glossary
<traceback-gadget> ( model -- gadget )
Vocabulary
ui
.
tools
.
traceback
Inputs
model
an
object
Outputs
gadget
an
object
Definition
USING:
accessors
kernel
ui.gadgets
ui.gadgets.toolbar
ui.gadgets.tracks
ui.tools.common
;
IN:
ui.tools.traceback
:
<traceback-gadget>
( model -- gadget )
[
vertical
traceback-gadget
new-track
with-lines
]
dip
[
>>model
]
[
[
vertical
<track>
with-lines
]
dip
[
[
horizontal
<track>
with-lines
]
dip
[
<datastack-display>
1/2
track-add
]
[
<retainstack-display>
1/2
track-add
]
bi
1/3
track-add
]
[
<callstack-display>
2/3
track-add
]
bi
1
track-add
]
bi
add-toolbar
;