suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Use auto-wrapping.

Browse Source
This commit is contained in:
Vincent St-Amour 2011-07-12 16:26:15 -04:00
parent 4e3650005a
commit b42952a2f4
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/typed-scheme/optimizer/tool/display.rkt
View File

@ -11,7 +11,7 @@
(syntax-line stx) (syntax-line stx)
(syntax-column stx) (syntax-column stx)
(pretty-format/write (syntax->datum stx)) (pretty-format/write (syntax->datum stx))
(break-lines msg))) msg))
"\n\n")) "\n\n"))
(define lowest-badness-color (make-object color% "pink")) (define lowest-badness-color (make-object color% "pink"))

6
collects/typed-scheme/optimizer/tool/tool.rkt
View File

@ -70,10 +70,12 @@
(define text (new read-only-text%)) (define text (new read-only-text%))
(define win (new dialog% (define win (new dialog%
[label "Performance Report"] [label "Performance Report"]
[width 700] [width 500]
[height 300])) [height 300]))
(define editor-canvas (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 (send text insert-port (open-input-string
(format-message stxs+msgs))) (format-message stxs+msgs)))
(send text init-done) (send text init-done)