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

turning off line-wrapping because of Racket bug 12749

Browse Source
This commit is contained in:
Danny Yoo 2012-05-04 15:25:59 -04:00
parent f5e57f6e85
commit 90105502ec
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
whalesong-gui.rkt
View File

@ -35,7 +35,7 @@
(define frame (new frame% [label "Build a Whalesong package"])) (define frame (new frame% [label "Build a Whalesong package"]))
(define file-button (new button% (define file-button (new button%
[parent frame] [parent frame]
[label "Choose file to build"] [label "Choose .rkt file to build"]
[callback (lambda (button event) [callback (lambda (button event)
(set! source-path (get-file)) (set! source-path (get-file))
@ -89,7 +89,7 @@
(define (do-the-build source-path) (define (do-the-build source-path)
(define f (new frame% [label "Building..."])) (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])) (define c (new editor-canvas% [parent f] [editor t]))
(send f show #t) (send f show #t)
(thread (lambda () (thread (lambda ()