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

White interior and margins in Traceback

db4
nicolas-p 2015-07-21 21:09:01 +02:00 committed by John Benediktsson
parent 6a528d3978
commit 30091bee91
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -32,12 +32,12 @@ M: stack-entry-renderer row-value drop object>> ;
t >>single-click? ;
: <stack-display> ( model quot title -- gadget )
[ '[ dup _ when ] <arrow> <stack-table> <scroller> ] dip
[ '[ dup _ when ] <arrow> <stack-table> margins <scroller> white-interior ] dip
<labeled-gadget> ;
: <callstack-display> ( model -- gadget )
[ [ call>> callstack. ] when* ]
<pane-control> t >>scrolls? <scroller>
<pane-control> t >>scrolls? margins <scroller> white-interior
"Call stack" <labeled-gadget> ;
: <datastack-display> ( model -- gadget )