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-column stx)
(pretty-format/write (syntax->datum stx))
(break-lines msg)))
msg))
"\n\n"))
(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 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)