Monospace font in traceback

diff --git a/basis/ui/tools/traceback/traceback.factor b/basis/ui/tools/traceback/traceback.factor
index be1cdf424a6a92d2f83bc15201fe01eb2568028a..965461bf06b8efd282f6be27005a8272fdfb048c 100644 (file)
--- 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? ;