From 47e076ec7c125d5e59b35ac28bac5a5ce76b635d Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Thu, 12 Feb 2009 02:09:22 -0600
Subject: [PATCH] Monospace font in traceback

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

diff --git a/basis/ui/tools/traceback/traceback.factor b/basis/ui/tools/traceback/traceback.factor
index be1cdf424a..965461bf06 100644
--- a/basis/ui/tools/traceback/traceback.factor
+++ b/basis/ui/tools/traceback/traceback.factor
@@ -5,7 +5,7 @@ fry prettyprint ui ui.commands ui.gadgets ui.gadgets.labelled assocs
 ui.gadgets.tracks ui.gadgets.buttons ui.gadgets.panes
 ui.gadgets.status-bar ui.gadgets.scrollers
 ui.gadgets.tables ui.gestures sequences inspector
-models.filter ;
+models.filter fonts ;
 QUALIFIED-WITH: ui.tools.inspector i
 IN: ui.tools.traceback
 
@@ -22,6 +22,7 @@ M: stack-entry-renderer row-value drop object>> ;
 
 : <stack-table> ( model -- table )
     [ [ <stack-entry> ] map ] <filter> <table>
+        monospace-font >>font
         [ i:inspector ] >>action
         stack-entry-renderer >>renderer
         t >>single-click? ;