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

adding helper message labels

Browse Source
This commit is contained in:
Danny Yoo 2012-05-02 23:18:54 -04:00
parent f7728d74fc
commit 4f929a7171
1 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
whalesong-gui.rkt
View File

@ -41,11 +41,18 @@
(cond (cond
[source-path [source-path
(current-output-dir (path-only source-path)) (current-output-dir
(build-path (path-only source-path)
(let-values ([(_1 name _2)
(split-path source-path)])
(regexp-replace #px"\\.\\w+$" (path->string name) ""))))
(send source-path-message set-label (send source-path-message set-label
(gui-utils:quote-literal-label (gui-utils:quote-literal-label
(format "~s selected. Output will be written to ~s." (format "~s selected."
(path->string source-path) (path->string source-path))))
(send dest-dir-message set-label
(gui-utils:quote-literal-label
(format "Output will be written to ~s."
(path->string (current-output-dir))))) (path->string (current-output-dir)))))
(send build-button enable #t)] (send build-button enable #t)]
[else [else
@ -55,6 +62,9 @@
(define source-path-message (new message% [parent dialog] (define source-path-message (new message% [parent dialog]
[label NO-FILE-SELECTED] [label NO-FILE-SELECTED]
[auto-resize #t])) [auto-resize #t]))
(define dest-dir-message (new message% [parent dialog]
[label ""]
[auto-resize #t]))