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

fixed default auto text bug and added string constant for auto text

Browse Source 
svn: r13810
This commit is contained in:
Robby Findler 2009-02-24 01:47:48 +00:00
parent b6e60bdd6e
commit 42e64a0f23
2 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/drscheme/private/module-language.ss
View File

@ -368,7 +368,7 @@
[callback void])) [callback void]))
(define auto-text-panel (new group-box-panel% (define auto-text-panel (new group-box-panel%
[parent new-parent] [parent new-parent]
[label "Auto-text"])) ;!! need string-constant [label (string-constant module-language-auto-text)]))
(define auto-text-text-box (new text-field% (define auto-text-text-box (new text-field%
[parent auto-text-panel] [parent auto-text-panel]
[label #f] [label #f]
@ -490,7 +490,10 @@
(format "~s" vec)))) (format "~s" vec))))
(define (get-auto-text) (define (get-auto-text)
(string-append (send auto-text-text-box get-value) "\n")) (let ([str (send auto-text-text-box get-value)])
(cond
[(equal? str "") ""]
[else (string-append str "\n")])))
(define (install-auto-text str) (define (install-auto-text str)
(send auto-text-text-box set-value (regexp-replace #rx"\n$" str ""))) (send auto-text-text-box set-value (regexp-replace #rx"\n$" str "")))
@ -500,6 +503,7 @@
(install-collection-paths '(default)) (install-collection-paths '(default))
(update-buttons) (update-buttons)
(install-auto-text default-auto-text)
(case-lambda (case-lambda
[() [()

1
collects/string-constants/english-string-constants.ss
View File

@ -1045,6 +1045,7 @@ please adhere to these guidelines:
(no-language-chosen "No language chosen") (no-language-chosen "No language chosen")
(module-language-one-line-summary "Run creates a REPL in the context of the module, including the module's declared language") (module-language-one-line-summary "Run creates a REPL in the context of the module, including the module's declared language")
(module-language-auto-text "Automatic #lang line") ;; shows up in the details section of the module language
;;; from the `not a language language' used initially in drscheme. ;;; from the `not a language language' used initially in drscheme.
(must-choose-language "DrScheme cannot process programs until you choose a programming language.") (must-choose-language "DrScheme cannot process programs until you choose a programming language.")