From 30091bee914587d86c9c25d7407c1b08707a0f00 Mon Sep 17 00:00:00 2001
From: nicolas-p <z.nicolas@gmail.com>
Date: Tue, 21 Jul 2015 21:09:01 +0200
Subject: [PATCH] White interior and margins in Traceback

---
 basis/ui/tools/traceback/traceback.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/basis/ui/tools/traceback/traceback.factor b/basis/ui/tools/traceback/traceback.factor
index 1558b0fcb4..cae9733ff5 100644
--- 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 )