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

Monospace font in traceback

db4
Slava Pestov 2009-02-12 02:09:22 -06:00
parent 83a1e9f07c
commit 47e076ec7c
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -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.tracks ui.gadgets.buttons ui.gadgets.panes
ui.gadgets.status-bar ui.gadgets.scrollers ui.gadgets.status-bar ui.gadgets.scrollers
ui.gadgets.tables ui.gestures sequences inspector ui.gadgets.tables ui.gestures sequences inspector
models.filter ; models.filter fonts ;
QUALIFIED-WITH: ui.tools.inspector i QUALIFIED-WITH: ui.tools.inspector i
IN: ui.tools.traceback IN: ui.tools.traceback
@ -22,6 +22,7 @@ M: stack-entry-renderer row-value drop object>> ;
: <stack-table> ( model -- table ) : <stack-table> ( model -- table )
[ [ <stack-entry> ] map ] <filter> <table> [ [ <stack-entry> ] map ] <filter> <table>
monospace-font >>font
[ i:inspector ] >>action [ i:inspector ] >>action
stack-entry-renderer >>renderer stack-entry-renderer >>renderer
t >>single-click? ; t >>single-click? ;