From f073367576347f55a78d982ff2a31e4548dae50d Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Fri, 16 Jun 2000 19:55:18 +0000
Subject: [PATCH] ...

original commit: 1996bc0bfb75e399dbda8225a14c72bcff4458d2
---
 collects/framework/keymap.ss | 25 ++++++++++++++++++++++---
 1 file changed, 22 insertions(+), 3 deletions(-)

diff --git a/collects/framework/keymap.ss b/collects/framework/keymap.ss
index de65e90f..1ad0a930 100644
--- a/collects/framework/keymap.ss
+++ b/collects/framework/keymap.ss
@@ -188,6 +188,25 @@
 	    (lambda (edit event)
 	      (bell))]
 	   
+	   [mouse-popup-menu 
+	    (lambda (edit event)
+	      (when (send event button-up?)
+		(let ([a (send edit get-admin)])
+		  (when a
+		    (let ([m (make-object popup-menu%)])
+		      (append-editor-operation-menu-items m)
+		      (for-each
+		       (lambda (i)
+			 (when (is-a? i selectable-menu-item<%>)
+			   (send i set-shortcut #f)))
+		       (send m get-items))
+
+		      (let-values ([(x y) (send edit
+						dc-location-to-editor-location
+						(send event get-x)
+						(send event get-y))])
+			(send a popup-menu m (+ x 1) (+ y 1))))))))]
+
 	   [up-out-of-editor-snip
 	    (lambda (text event)
 	      (let ([editor-admin (send text get-admin)])
@@ -790,6 +809,8 @@
 	  (add "goto-position" goto-position)
 	  
 	  (add "delete-key" delete-key)
+
+	  (add "mouse-popup-menu" mouse-popup-menu)
 	  
 	  ; Map keys to functions
 	  (map "c:g" "ring-bell")
@@ -951,10 +972,8 @@
 	  (map "leftbuttontriple" "select-click-line")
 	  (map "leftbuttondouble" "select-click-word")
 	  
-	  (map "rightbutton" "copy-click-region")
-	  (map "rightbuttondouble" "cut-click-region")
 	  (map "middlebutton" "paste-click-region")
-	  (map "c:rightbutton" "copy-clipboard")))))
+	  (map ":rightbuttonseq" "mouse-popup-menu")))))
   
   (define setup-search
     (let* ([send-frame