From 7eb004112b63fb638918f640a60911c0f7dc9483 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 29 Dec 2007 21:48:58 +0000 Subject: [PATCH] changed get-special-menu to get-insert-menu svn: r8158 --- collects/guibuilder/tool.ss | 6 +++--- collects/stepper/xml-tool.ss | 10 +++++----- collects/xml/text-box-tool.ss | 6 +++--- 3 files changed, 11 insertions(+), 11 deletions(-) diff --git a/collects/guibuilder/tool.ss b/collects/guibuilder/tool.ss index 785ee96ef9..5d484ac449 100644 --- a/collects/guibuilder/tool.ss +++ b/collects/guibuilder/tool.ss @@ -21,7 +21,7 @@ (drscheme:get/extend:extend-unit-frame (lambda (drs:frame%) (class drs:frame% - (inherit get-special-menu get-edit-target-object) + (inherit get-insert-menu get-edit-target-object) (define toolbar #f) (define toolbar-shown? #f) @@ -59,7 +59,7 @@ (super-new) - (make-object menu-item% (string-constant gui-tool-insert-gui) (get-special-menu) + (make-object menu-item% (string-constant gui-tool-insert-gui) (get-insert-menu) (lambda (b e) (let ([e (get-edit-target-object)]) (when e @@ -69,6 +69,6 @@ (send gb create-main-panel) (send gb set-caret-owner #f 'display)))))) (inherit register-capability-menu-item) - (register-capability-menu-item 'drscheme:special:insert-gui-tool (get-special-menu)))))) + (register-capability-menu-item 'drscheme:special:insert-gui-tool (get-insert-menu)))))) (drscheme:language:register-capability 'drscheme:special:insert-gui-tool (flat-contract boolean?) #t)))) diff --git a/collects/stepper/xml-tool.ss b/collects/stepper/xml-tool.ss index 01d388460d..642cccee67 100644 --- a/collects/stepper/xml-tool.ss +++ b/collects/stepper/xml-tool.ss @@ -361,11 +361,11 @@ (define (xml-box-frame-extension super%) (class super% - (inherit get-editor register-capability-menu-item get-special-menu get-edit-target-object) + (inherit get-editor register-capability-menu-item get-insert-menu get-edit-target-object) (super-new) - (let* ([menu (get-special-menu)] + (let* ([menu (get-insert-menu)] [find-insertion-point ;; -> (union #f editor<%>) ;; returns the editor (if there is one) with the keyboard focus (lambda () @@ -400,7 +400,7 @@ (instantiate xml-snip% () [eliminate-whitespace-in-empty-tags? (preferences:get 'drscheme:xml-eliminate-whitespace)])))))) - (register-capability-menu-item 'drscheme:special:xml-menus (get-special-menu)) + (register-capability-menu-item 'drscheme:special:xml-menus (get-insert-menu)) (instantiate menu:can-restore-menu-item% () (label (string-constant xml-tool-insert-scheme-box)) (parent menu) @@ -409,7 +409,7 @@ (lambda (menu evt) (insert-snip (lambda () (instantiate scheme-snip% () (splice? #f))))))) - (register-capability-menu-item 'drscheme:special:xml-menus (get-special-menu)) + (register-capability-menu-item 'drscheme:special:xml-menus (get-insert-menu)) (instantiate menu:can-restore-menu-item% () (label (string-constant xml-tool-insert-scheme-splice-box)) (parent menu) @@ -418,7 +418,7 @@ (lambda (menu evt) (insert-snip (lambda () (instantiate scheme-snip% () (splice? #t))))))) - (register-capability-menu-item 'drscheme:special:xml-menus (get-special-menu))) + (register-capability-menu-item 'drscheme:special:xml-menus (get-insert-menu))) (frame:reorder-menus this))) diff --git a/collects/xml/text-box-tool.ss b/collects/xml/text-box-tool.ss index 404df11b26..7ba2a3edc2 100644 --- a/collects/xml/text-box-tool.ss +++ b/collects/xml/text-box-tool.ss @@ -20,18 +20,18 @@ (define (text-box-mixin %) (class % - (inherit get-special-menu get-edit-target-object register-capability-menu-item) + (inherit get-insert-menu get-edit-target-object register-capability-menu-item) (super-new) (new menu-item% (label (string-constant insert-text-box-item)) - (parent (get-special-menu)) + (parent (get-insert-menu)) (callback (lambda (menu event) (let ([c-box (new text-box%)] [text (get-edit-target-object)]) (send text insert c-box) (send text set-caret-owner c-box 'global))))) - (register-capability-menu-item 'drscheme:special:slideshow-menu-item (get-special-menu)))) + (register-capability-menu-item 'drscheme:special:slideshow-menu-item (get-insert-menu)))) (drscheme:get/extend:extend-unit-frame text-box-mixin)