...

original commit: 7e8123f8c8d3c5daf9701d098f912cef8429e013

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^)))
+   (open frameworkc^)))

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)