From e1599a4069231cc3875931dd7366ee99adae2a94 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 2 Oct 2000 20:48:29 +0000 Subject: [PATCH] ... original commit: 7e8123f8c8d3c5daf9701d098f912cef8429e013 --- collects/framework/frameworks.ss | 4 +++- collects/framework/keymap.ss | 4 ++++ 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/collects/framework/frameworks.ss b/collects/framework/frameworks.ss index 3ba5365a..2d82ed20 100644 --- a/collects/framework/frameworks.ss +++ b/collects/framework/frameworks.ss @@ -229,6 +229,8 @@ canonicalize-keybinding-string + add-to-right-button-menu + setup-global setup-search setup-file @@ -315,4 +317,4 @@ (define-signature framework^ ([unit test : framework:test^] - (open frameworkc^))) \ No newline at end of file + (open frameworkc^))) diff --git a/collects/framework/keymap.ss b/collects/framework/keymap.ss index 249867a1..862f3b56 100644 --- a/collects/framework/keymap.ss +++ b/collects/framework/keymap.ss @@ -182,6 +182,8 @@ (for-each (lambda (key) (send keymap map-function key func)) (make-meta-prefix-list key)))) + (define add-to-right-button-menu (make-parameter void)) + (define setup-global ; Define some useful keyboard functions (let* ([ring-bell @@ -201,6 +203,8 @@ (send i set-shortcut #f))) (send m get-items)) + ((add-to-right-button-menu) m edit event) + (let-values ([(x y) (send edit dc-location-to-editor-location (send event get-x)