From b42952a2f4d8342702db736166931f678cb699ca Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Tue, 12 Jul 2011 16:26:15 -0400 Subject: [PATCH] Use auto-wrapping. --- collects/typed-scheme/optimizer/tool/display.rkt | 2 +- collects/typed-scheme/optimizer/tool/tool.rkt | 6 ++++-- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/collects/typed-scheme/optimizer/tool/display.rkt b/collects/typed-scheme/optimizer/tool/display.rkt index 51d7eb3280..4f540407f6 100644 --- a/collects/typed-scheme/optimizer/tool/display.rkt +++ b/collects/typed-scheme/optimizer/tool/display.rkt @@ -11,7 +11,7 @@ (syntax-line stx) (syntax-column stx) (pretty-format/write (syntax->datum stx)) - (break-lines msg))) + msg)) "\n\n")) (define lowest-badness-color (make-object color% "pink")) diff --git a/collects/typed-scheme/optimizer/tool/tool.rkt b/collects/typed-scheme/optimizer/tool/tool.rkt index 098f82bce2..8ff5b26625 100644 --- a/collects/typed-scheme/optimizer/tool/tool.rkt +++ b/collects/typed-scheme/optimizer/tool/tool.rkt @@ -70,10 +70,12 @@ (define text (new read-only-text%)) (define win (new dialog% [label "Performance Report"] - [width 700] + [width 500] [height 300])) (define editor-canvas - (new editor-canvas% [parent win] [editor text])) + (new editor-canvas% [parent win] [editor text] + [style '(no-hscroll)])) + (send text auto-wrap #t) (send text insert-port (open-input-string (format-message stxs+msgs))) (send text init-done)