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)
(<= 1 i 255))))
(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%
(class (drracket:frame:basics-mixin

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

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