From b357d992fb8e0210ecf23ba20d3e253081d12a93 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 4 Dec 2001 05:12:43 +0000 Subject: [PATCH] ... original commit: d3a5041f21da16f7f5783c5ba0f8f6d6f726eb77 --- collects/framework/private/keymap.ss | 4 ++++ collects/framework/private/sig.ss | 1 + 2 files changed, 5 insertions(+) diff --git a/collects/framework/private/keymap.ss b/collects/framework/private/keymap.ss index 2e80a469..2c939b03 100644 --- a/collects/framework/private/keymap.ss +++ b/collects/framework/private/keymap.ss @@ -200,6 +200,7 @@ (make-meta-prefix-list key)))) (define add-to-right-button-menu (make-parameter void)) + (define add-to-right-button-menu/before (make-parameter void)) (define setup-global ; Define some useful keyboard functions @@ -213,6 +214,9 @@ (let ([a (send edit get-admin)]) (when a (let ([m (make-object popup-menu%)]) + + ((add-to-right-button-menu/before) m edit event) + (append-editor-operation-menu-items m) (for-each (lambda (i) diff --git a/collects/framework/private/sig.ss b/collects/framework/private/sig.ss index 6562a147..dfa988b6 100644 --- a/collects/framework/private/sig.ss +++ b/collects/framework/private/sig.ss @@ -270,6 +270,7 @@ canonicalize-keybinding-string add-to-right-button-menu + add-to-right-button-menu/before setup-global setup-search