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

adjust the preferences setting for the module language auto-text

Browse Source 
so that it deals with the trailing newline in a manner consistent
with the way the rest of that code works
This commit is contained in:
Robby Findler 2011-09-29 16:39:31 -05:00
parent 4535f5d8cc
commit 56effc21f9
2 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/drracket/private/main.rkt
View File

@ -589,7 +589,7 @@
(and (integer? i) (and (integer? i)
(<= 1 i 255)))) (<= 1 i 255))))
(not x)))) (not x))))
(drr:set-default 'drracket:module-language:auto-text "#lang racket" string?) (drr:set-default 'drracket:module-language:auto-text "#lang racket\n" string?)
(let ([drs-handler-recent-items-super% (let ([drs-handler-recent-items-super%
(class (drracket:frame:basics-mixin (class (drracket:frame:basics-mixin

3
collects/drracket/private/module-language.rkt
View File

@ -583,9 +583,8 @@
[init-value ""] [init-value ""]
[callback [callback
(λ (tf evt) (λ (tf evt)
(define t (send tf get-editor))
(preferences:set 'drracket:module-language:auto-text (preferences:set 'drracket:module-language:auto-text
(send t get-text)))])) (get-auto-text)))]))
;; data associated with each item in listbox : boolean ;; data associated with each item in listbox : boolean
;; indicates if the entry is the default paths. ;; indicates if the entry is the default paths.