From 6dda3c3e033b54d2f953d6309180ac6fa89467b5 Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Wed, 13 Jul 2011 15:49:05 -0400 Subject: [PATCH] Display code in monospace. --- collects/typed-scheme/optimizer/tool/display.rkt | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/collects/typed-scheme/optimizer/tool/display.rkt b/collects/typed-scheme/optimizer/tool/display.rkt index ab303014c4..2b6f2549ea 100644 --- a/collects/typed-scheme/optimizer/tool/display.rkt +++ b/collects/typed-scheme/optimizer/tool/display.rkt @@ -16,6 +16,7 @@ (define popup-height 300) (define ((popup-callback entry) ed start end) + (match-define (report-entry subs start end badness) entry) (define text (new text%)) (define win (new dialog% [label "Performance Report"] @@ -23,12 +24,17 @@ (define pane (new text% [auto-wrap #t])) (define canvas (new editor-canvas% [parent win] [editor pane] [style '(no-hscroll)])) + (define tt-style-delta (new style-delta%)) + (send tt-style-delta set-family 'modern) + (for ([s (in-list subs)]) (match-define (sub-report-entry stx msg) s) (define-values (message stx-start) (format-message stx msg)) (define text (new text% [auto-wrap #t])) (send text set-max-width (- popup-width 20)) ; minus the scrollbar (send text insert-port (open-input-string message)) + (send text change-style tt-style-delta + stx-start (+ stx-start (syntax-span stx))) (send text auto-wrap #t) (send text lock #t) (send pane insert (new editor-snip% [editor text] [max-width popup-width]