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

fix some set-label calls to ensure they are always label-string?s

Browse Source
This commit is contained in:
Robby Findler 2013-09-09 20:36:08 -05:00
parent 480afa4c4d
commit ead0ecc03a
1 changed files with 25 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
pkgs/gui-pkg-manager-pkgs/gui-pkg-manager-lib/pkg/gui/by-source.rkt
View File

@ -420,7 +420,7 @@
(if infer? name-message name-field))))
(when infer?
(define name (get-name))
(send name-message set-label name)
(send name-message set-label (gui-utils:trim-string name 200))
(send name-field set-value name)))
(define/private (adjust-checkbox)
@ -538,28 +538,30 @@
s))
(define cmd-line (compute-cmd-line))
(send cmdline-msg set-label
(if cmd-line
(string-append
(if (eq? (system-type) 'windows)
"raco.exe"
"raco")
" pkg "
(format "~a " (cmdline-which cmd-line))
(apply
string-append
(add-between
(map (λ (kwd kwd-arg)
(define flag (~a "--" (keyword->string kwd)))
(if (boolean? kwd-arg)
flag
(~a flag " " (~s kwd-arg))))
(cmdline-kwds cmd-line)
(cmdline-kwd-args cmd-line))
" "))
(apply string-append
(map (λ (x) (format " ~a" (possibly-quote-string x)))
(cmdline-args cmd-line))))
"")))
(gui-utils:trim-string
(if cmd-line
(string-append
(if (eq? (system-type) 'windows)
"raco.exe"
"raco")
" pkg "
(format "~a " (cmdline-which cmd-line))
(apply
string-append
(add-between
(map (λ (kwd kwd-arg)
(define flag (~a "--" (keyword->string kwd)))
(if (boolean? kwd-arg)
flag
(~a flag " " (~s kwd-arg))))
(cmdline-kwds cmd-line)
(cmdline-kwd-args cmd-line))
" "))
(apply string-append
(map (λ (x) (format " ~a" (possibly-quote-string x)))
(cmdline-args cmd-line))))
"")
200)))
(struct cmdline (which kwds kwd-args args) #:transparent)
(define/private (compute-cmd-line)