renamed the field scheme-menu to language-specific-menu

This commit is contained in:
Robby Findler 2010-06-18 20:44:29 -05:00
parent c7df0fab35
commit c940caa4d6

View File

@ -2048,13 +2048,13 @@ module browser threading seems wrong.
(drracket:language-configuration:language-settings-settings settings))
""
(string-append " " (string-constant custom)))))
(when (is-a? scheme-menu menu%)
(let ([label (send scheme-menu get-label)]
(when (is-a? language-specific-menu menu%)
(let ([label (send language-specific-menu get-label)]
[new-label (send language capability-value 'drscheme:language-menu-title)])
(unless (equal? label new-label)
(send scheme-menu set-label new-label))))))
(send language-specific-menu set-label new-label))))))
(define/public (get-language-menu) scheme-menu)
(define/public (get-language-menu) language-specific-menu)
;; update-save-message : -> void
;; sets the save message. If input is #f, uses the frame's
@ -3573,7 +3573,7 @@ module browser threading seems wrong.
(send new-language capability-value key)))
(define language-menu 'uninited-language-menu)
(define scheme-menu 'scheme-menu-not-yet-init)
(define language-specific-menu 'language-specific-menu-not-yet-init)
(define insert-menu 'insert-menu-not-yet-init)
(define/public (get-insert-menu) insert-menu)
(define/public (get-special-menu) insert-menu)
@ -3658,10 +3658,10 @@ module browser threading seems wrong.
mb
#f
language-menu-on-demand))]
[_ (set! scheme-menu (new (get-menu%)
[label (drracket:language:get-capability-default
'drscheme:language-menu-title)]
[parent mb]))]
[_ (set! language-specific-menu (new (get-menu%)
[label (drracket:language:get-capability-default
'drscheme:language-menu-title)]
[parent mb]))]
[send-method
(λ (method)
(λ (_1 _2)
@ -3682,26 +3682,26 @@ module browser threading seems wrong.
(set! execute-menu-item
(make-object menu:can-restore-menu-item%
(string-constant execute-menu-item-label)
scheme-menu
language-specific-menu
(λ (_1 _2) (execute-callback))
#\t
(string-constant execute-menu-item-help-string)))
(make-object menu:can-restore-menu-item%
(string-constant ask-quit-menu-item-label)
scheme-menu
language-specific-menu
(λ (_1 _2) (send current-tab break-callback))
#\b
(string-constant ask-quit-menu-item-help-string))
(make-object menu:can-restore-menu-item%
(string-constant force-quit-menu-item-label)
scheme-menu
language-specific-menu
(λ (_1 _2) (send interactions-text kill-evaluation))
#\k
(string-constant force-quit-menu-item-help-string))
(when (custodian-memory-accounting-available?)
(new menu-item%
[label (string-constant limit-memory-menu-item-label)]
[parent scheme-menu]
[parent language-specific-menu]
[callback
(λ (item b)
(let ([num (get-mbytes this
@ -3720,7 +3720,7 @@ module browser threading seems wrong.
(* 1024 1024 num))]))))]))
(new menu:can-restore-menu-item%
(label (string-constant clear-error-highlight-menu-item-label))
(parent scheme-menu)
(parent language-specific-menu)
(callback
(λ (_1 _2)
(let ([ints (send (get-current-tab) get-ints)])
@ -3730,16 +3730,16 @@ module browser threading seems wrong.
(λ (item)
(let ([ints (send (get-current-tab) get-ints)])
(send item enable (send ints get-error-ranges))))))
(make-object separator-menu-item% scheme-menu)
(make-object separator-menu-item% language-specific-menu)
(make-object menu:can-restore-menu-item%
(string-constant create-executable-menu-item-label)
scheme-menu
language-specific-menu
(λ (x y) (create-executable this)))
(make-object menu:can-restore-menu-item%
(string-constant module-browser...)
scheme-menu
language-specific-menu
(λ (x y) (drracket:module-overview:module-overview this)))
(make-object separator-menu-item% scheme-menu)
(make-object separator-menu-item% language-specific-menu)
(let ([cap-val
(λ ()
@ -3750,7 +3750,7 @@ module browser threading seems wrong.
(send language capability-value 'drscheme:tabify-menu-callback)))])
(new menu:can-restore-menu-item%
[label (string-constant reindent-menu-item-label)]
[parent scheme-menu]
[parent language-specific-menu]
[demand-callback (λ (m) (send m enable (cap-val)))]
[callback (send-method
(λ (x)
@ -3762,7 +3762,7 @@ module browser threading seems wrong.
(new menu:can-restore-menu-item%
[label (string-constant reindent-all-menu-item-label)]
[parent scheme-menu]
[parent language-specific-menu]
[callback
(send-method
(λ (x)
@ -3774,15 +3774,15 @@ module browser threading seems wrong.
(make-object menu:can-restore-menu-item%
(string-constant box-comment-out-menu-item-label)
scheme-menu
language-specific-menu
(send-method (λ (x) (send x box-comment-out-selection))))
(make-object menu:can-restore-menu-item%
(string-constant semicolon-comment-out-menu-item-label)
scheme-menu
language-specific-menu
(send-method (λ (x) (send x comment-out-selection))))
(make-object menu:can-restore-menu-item%
(string-constant uncomment-menu-item-label)
scheme-menu
language-specific-menu
(λ (x y)
(let ([text (get-focus-object)])
(when (is-a? text text%)