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

fixed PR 10878

Browse Source
This commit is contained in:
Robby Findler 2010-04-29 11:24:58 -05:00
parent f46ad89200
commit 350fc70fc1
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/drscheme/private/module-language-tools.rkt
View File

@ -19,7 +19,7 @@
[prefix drracket:language-configuration: drracket:language-configuration^])
(export drracket:module-language-tools^)
(define-local-member-name initialized? move-to-new-language)
(define-local-member-name initialized? move-to-new-language get-in-module-language?)
(define-struct opt-out-toolbar-button (make-button id) #:transparent)
(define opt-out-toolbar-buttons '())
@ -68,7 +68,9 @@
;; move button panel to the front of the list
(send (get-button-panel) change-children
(λ (l) (cons toolbar-button-panel (remq toolbar-button-panel l))))
(send (get-definitions-text) move-to-new-language)))
(let ([defs (get-definitions-text)])
(when (send defs get-in-module-language?)
(send defs move-to-new-language)))))
(define definitions-text<%> (interface ()))
(define definitions-text-mixin
@ -77,6 +79,7 @@
(define in-module-language? #f) ;; true when we are in the module language
(define hash-lang-last-location #f) ;; non-false when we know where the hash-lang line ended
(define hash-lang-language #f) ;; non-false is the string that was parsed for the language
(define/public (get-in-module-language?) in-module-language?)
(define/augment (after-insert start len)
(inner (void) after-insert start len)
(modification-at start))