! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays colors.constants continuations fonts fry inspector
kernel models models.arrow prettyprint sequences ui.commands
-ui.gadgets ui.gadgets.borders ui.gadgets.buttons ui.gadgets.colors
+ui.gadgets ui.gadgets.borders ui.gadgets.buttons
ui.gadgets.labeled ui.gadgets.panes ui.gadgets.scrollers
-ui.gadgets.status-bar ui.gadgets.tables ui.gadgets.toolbar ui.gadgets.tracks
+ui.gadgets.status-bar ui.gadgets.tables ui.gadgets.toolbar
+ui.theme ui.gadgets.theme ui.gadgets.tracks
ui.gestures ui.tools.common ;
QUALIFIED-WITH: ui.tools.inspector i
IN: ui.tools.traceback
10 >>max-rows
40 >>min-cols
40 >>max-cols
- monospace-font >>font
+ monospace-font >>font theme-font-colors
[ i:inspector ] >>action
t >>single-click? ;
: <stack-display> ( model quot title color -- gadget )
[ '[ dup _ when ] <arrow> <stack-table> margins <scroller> white-interior ] 2dip
- <labeled-gadget> ; ! Il attend le titre en dernier
+ <labeled> ;
: <callstack-display> ( model -- gadget )
[ [ call>> callstack. ] when* ]
<pane-control> t >>scrolls? margins <scroller> white-interior
- "Call stack" call-stack-color <labeled-gadget> ;
+ "Call stack" call-stack-color <labeled> ;
: <datastack-display> ( model -- gadget )
[ data>> ] "Data stack" data-stack-color <stack-display> ;