From bc74208c10f9be86e9e51281739b479b6abe98f3 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Fri, 29 Sep 2000 14:11:37 +0000
Subject: [PATCH] .

original commit: 3f67b1442101c75d9446d30a79da019da25e848d
---
 collects/framework/keymap.ss | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/collects/framework/keymap.ss b/collects/framework/keymap.ss
index c92270b6..249867a1 100644
--- a/collects/framework/keymap.ss
+++ b/collects/framework/keymap.ss
@@ -972,7 +972,11 @@
 	  (map "leftbuttontriple" "select-click-line")
 	  (map "leftbuttondouble" "select-click-word")
 	  
-	  (map "middlebutton" "paste-click-region")
+	  ;; the "roller ball" mice map clicking the ball to button 2.
+          (unless (eq? (system-type) 'windows)
+            (map "middlebutton" "paste-click-region"))
+          
+          
 	  (map ":rightbuttonseq" "mouse-popup-menu")))))
   
   (define setup-search