diff --git a/collects/drscheme/private/unit.ss b/collects/drscheme/private/unit.ss index 5c82aa3c2e..c6e440aedc 100644 --- a/collects/drscheme/private/unit.ss +++ b/collects/drscheme/private/unit.ss @@ -1160,6 +1160,7 @@ module browser threading seems wrong. (define -frame<%> (interface (drscheme:frame:<%> frame:searchable-text<%> frame:delegate<%> frame:open-here<%>) + get-insert-menu get-special-menu get-interactions-text get-definitions-text @@ -2836,8 +2837,17 @@ module browser threading seems wrong. (define language-menu 'uninited-language-menu) (define scheme-menu 'scheme-menu-not-yet-init) - (define special-menu 'special-menu-not-yet-init) - (define/public (get-special-menu) special-menu) + (define insert-menu 'insert-menu-not-yet-init) + (define/public (get-insert-menu) insert-menu) + (define/public (get-special-menu) + (define context (continuation-mark-set->context (current-continuation-marks))) + (fprintf (current-error-port) + "called get-special-menu: ~a\n" + (if (and (pair? context) + (pair? (cdr context))) + (format "~s ~s" (car (cadr context)) (cdr (cadr context))) + "<>")) + insert-menu) (define/public (choose-language-callback) (let ([new-settings (drscheme:language-configuration:language-dialog @@ -3037,12 +3047,12 @@ module browser threading seems wrong. [else (send text uncomment-selection)]))] [else (send text uncomment-selection)])))))) - (set! special-menu + (set! insert-menu (new (get-menu%) - [label (string-constant special-menu)] + [label (string-constant insert-menu)] [parent mb] [demand-callback - (λ (special-menu) + (λ (insert-menu) ;; just here for convience -- it actually works on all menus, not just the special menu (show/hide-capability-menus))])) @@ -3082,36 +3092,36 @@ module browser threading seems wrong. [c% (get-menu-item%)]) (frame:add-snip-menu-items - special-menu + insert-menu c% (λ (item) (let ([label (send item get-label)]) (cond [(equal? label (string-constant insert-comment-box-menu-item-label)) - (register-capability-menu-item 'drscheme:special:insert-comment-box special-menu)] + (register-capability-menu-item 'drscheme:special:insert-comment-box insert-menu)] [(equal? label (string-constant insert-image-item)) - (register-capability-menu-item 'drscheme:special:insert-image special-menu)])))) + (register-capability-menu-item 'drscheme:special:insert-image insert-menu)])))) (make-object c% (string-constant insert-fraction-menu-item-label) - special-menu callback + insert-menu callback #f #f has-editor-on-demand) - (register-capability-menu-item 'drscheme:special:insert-fraction special-menu) + (register-capability-menu-item 'drscheme:special:insert-fraction insert-menu) (make-object c% (string-constant insert-large-letters...) - special-menu + insert-menu (λ (x y) (insert-large-semicolon-letters)) #f #f has-editor-on-demand) - (register-capability-menu-item 'drscheme:special:insert-large-letters special-menu) + (register-capability-menu-item 'drscheme:special:insert-large-letters insert-menu) (make-object c% (string-constant insert-lambda) - special-menu + insert-menu (λ (x y) (insert-lambda)) #\\ #f has-editor-on-demand) - (register-capability-menu-item 'drscheme:special:insert-lambda special-menu)) + (register-capability-menu-item 'drscheme:special:insert-lambda insert-menu)) (make-object separator-menu-item% (get-show-menu)) diff --git a/collects/slideshow/tool.ss b/collects/slideshow/tool.ss index 22aefbc27a..366be6ded2 100644 --- a/collects/slideshow/tool.ss +++ b/collects/slideshow/tool.ss @@ -624,9 +624,9 @@ pict snip : (super-new) - (inherit get-special-menu register-capability-menu-item) - (add-special-menu-item (get-special-menu) this) - (register-capability-menu-item 'drscheme:special:slideshow-menu-item (get-special-menu)))) + (inherit get-insert-menu register-capability-menu-item) + (add-special-menu-item (get-insert-menu) this) + (register-capability-menu-item 'drscheme:special:slideshow-menu-item (get-insert-menu)))) (define slideshow-dragable% (class panel:horizontal-dragable% diff --git a/collects/string-constants/english-string-constants.ss b/collects/string-constants/english-string-constants.ss index 43b1524c6f..4bdf0961ca 100644 --- a/collects/string-constants/english-string-constants.ss +++ b/collects/string-constants/english-string-constants.ss @@ -1113,8 +1113,8 @@ please adhere to these guidelines: ;; This is used in this context: "PLT Scheme vNNN <<<*>>> http://download..." (version:now-available-at "is now available at") - ;; special menu - (special-menu "S&pecial") + ;; insert menu + (insert-menu "&Insert") ;; large semi colon letters (insert-large-letters... "Insert Large Letters...") diff --git a/doc/release-notes/drscheme/HISTORY b/doc/release-notes/drscheme/HISTORY index 6938097ed9..9944f56cd3 100644 --- a/doc/release-notes/drscheme/HISTORY +++ b/doc/release-notes/drscheme/HISTORY @@ -1,3 +1,9 @@ +------------------------------ + Version 4.0 +------------------------------ + + . renamed the get-special-menu method to get-insert-menu + ------------------------------ Version 372 ------------------------------