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

changed a capability value's name from drracket:<something> back to drscheme:<something>

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

4
collects/drscheme/syncheck.rkt
View File

@ -1037,7 +1037,7 @@ If the namespace does not, they are colored the unbound color.
(define/public (update-button-visibility/settings settings) (define/public (update-button-visibility/settings settings)
(let* ([lang (drracket:language-configuration:language-settings-language settings)] (let* ([lang (drracket:language-configuration:language-settings-language settings)]
[visible? (and (not (is-a? lang drracket:module-language:module-language<%>)) [visible? (and (not (is-a? lang drracket:module-language:module-language<%>))
(send lang capability-value 'drracket:check-syntax-button))]) (send lang capability-value 'drscheme:check-syntax-button))])
(send check-syntax-button-parent-panel change-children (send check-syntax-button-parent-panel change-children
(λ (l) (λ (l)
(if visible? (if visible?
@ -2889,7 +2889,7 @@ If the namespace does not, they are colored the unbound color.
(add-check-syntax-key-bindings (drracket:rep:get-drs-bindings-keymap)) (add-check-syntax-key-bindings (drracket:rep:get-drs-bindings-keymap))
(fw:color-prefs:add-to-preferences-panel (string-constant check-syntax) (fw:color-prefs:add-to-preferences-panel (string-constant check-syntax)
syncheck-add-to-preferences-panel) syncheck-add-to-preferences-panel)
(drracket:language:register-capability 'drracket:check-syntax-button (flat-contract boolean?) #t) (drracket:language:register-capability 'drscheme:check-syntax-button (flat-contract boolean?) #t)
(drracket:get/extend:extend-definitions-text make-syncheck-text%) (drracket:get/extend:extend-definitions-text make-syncheck-text%)
(drracket:get/extend:extend-unit-frame unit-frame-mixin #f) (drracket:get/extend:extend-unit-frame unit-frame-mixin #f)
(drracket:get/extend:extend-tab tab-mixin))) (drracket:get/extend:extend-tab tab-mixin)))