From 0ba3a8ef7c55cc4c2c7c3d2194c8a05e9eead915 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Wed, 21 Sep 2011 06:37:32 -0500
Subject: [PATCH] remember the default #lang line separately from the language
 preference

closes PR 12210
---
 collects/drracket/private/main.rkt            |  1 +
 collects/drracket/private/module-language.rkt | 14 +++++++++-----
 2 files changed, 10 insertions(+), 5 deletions(-)

diff --git a/collects/drracket/private/main.rkt b/collects/drracket/private/main.rkt
index bc4ac70b06..96e9762a97 100644
--- a/collects/drracket/private/main.rkt
+++ b/collects/drracket/private/main.rkt
@@ -589,6 +589,7 @@
                                                                   (and (integer? i)
                                                                        (<= 1 i 255))))
                                                            (not x))))
+  (drr:set-default 'drracket:module-language:auto-text "#lang racket" string?)
 
 (let ([drs-handler-recent-items-super%
        (class (drracket:frame:basics-mixin
diff --git a/collects/drracket/private/module-language.rkt b/collects/drracket/private/module-language.rkt
index 314cb2a436..9e8acceda5 100644
--- a/collects/drracket/private/module-language.rkt
+++ b/collects/drracket/private/module-language.rkt
@@ -77,7 +77,7 @@
   
   (define default-compilation-on? #t)
   (define default-full-trace? #t)
-  (define default-auto-text "#lang racket\n")  
+  (define (get-default-auto-text) (preferences:get 'drracket:module-language:auto-text))  
   
   ;; module-mixin : (implements drracket:language:language<%>)
   ;;             -> (implements drracket:language:language<%>)
@@ -178,7 +178,7 @@
            
            '(default)
            #()
-           default-auto-text
+           (get-default-auto-text)
            default-compilation-on?
            default-full-trace?)))
       
@@ -217,7 +217,7 @@
                     (let ([collection-paths (list-ref marshalled 1)]
                           [command-line-args (list-ref marshalled 2)]
                           [auto-text (if (<= marshalled-len 3)
-                                         default-auto-text
+                                         (get-default-auto-text)
                                          (list-ref marshalled 3))]
                           [compilation-on? (if (<= marshalled-len 4)
                                                default-compilation-on?
@@ -581,7 +581,11 @@
                                     [parent auto-text-panel]
                                     [label #f]
                                     [init-value ""]
-                                    [callback void]))
+                                    [callback 
+                                     (λ (tf evt)
+                                       (define t (send tf get-editor))
+                                       (preferences:set 'drracket:module-language:auto-text
+                                                        (send t get-text)))]))
     
     ;; data associated with each item in listbox : boolean
     ;; indicates if the entry is the default paths.
@@ -708,7 +712,7 @@
     
     (install-collection-paths '(default))
     (update-buttons)
-    (install-auto-text default-auto-text)
+    (install-auto-text (get-default-auto-text))
     (update-compilation-checkbox left-debugging-radio-box right-debugging-radio-box)
     
     (case-lambda