From 90105502ec02c69d2d6198380d3c61a2344f290d Mon Sep 17 00:00:00 2001 From: Danny Yoo Date: Fri, 4 May 2012 15:25:59 -0400 Subject: [PATCH] turning off line-wrapping because of Racket bug 12749 --- whalesong-gui.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/whalesong-gui.rkt b/whalesong-gui.rkt index d8b5d43..fc9128f 100644 --- a/whalesong-gui.rkt +++ b/whalesong-gui.rkt @@ -35,7 +35,7 @@ (define frame (new frame% [label "Build a Whalesong package"])) (define file-button (new button% [parent frame] - [label "Choose file to build"] + [label "Choose .rkt file to build"] [callback (lambda (button event) (set! source-path (get-file)) @@ -89,7 +89,7 @@ (define (do-the-build source-path) (define f (new frame% [label "Building..."])) - (define t (new text% [auto-wrap #t])) + (define t (new text% [auto-wrap #f])) (define c (new editor-canvas% [parent f] [editor t])) (send f show #t) (thread (lambda ()