White interior and margins in Traceback

diff --git a/basis/ui/tools/traceback/traceback.factor b/basis/ui/tools/traceback/traceback.factor
index 1558b0fcb4cd0a447112276beee02247aa01b7b8..cae9733ff55e7acca8bdd8b25651f83de6b5b51b 100644 (file)
--- a/basis/ui/tools/traceback/traceback.factor
+++ b/basis/ui/tools/traceback/traceback.factor
@@ -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 )