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

changed get-special-menu to get-insert-menu

Browse Source 
svn: r8158
This commit is contained in:
Robby Findler 2007-12-29 21:48:58 +00:00
parent 3549e55d5a
commit 7eb004112b
3 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/guibuilder/tool.ss
View File

@ -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))))

10
collects/stepper/xml-tool.ss
View File

@ -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)))

6
collects/xml/text-box-tool.ss
View File

@ -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)