*** empty log message ***

original commit: 0f87cad150bfc3f83a8ddbd4b914930eb746d579
1997-05-22 16:51:48 +00:00 · 1997-05-22 16:51:48 +00:00 · 30c41b2592
commit 30c41b2592
parent 448659c07a
1 changed files with 4 additions and 1 deletions
--- a/collects/mred/keys.ss
+++ b/collects/mred/keys.ss
@ -907,6 +907,9 @@
 	    (map "middlebutton" "paste-click-region")
 	    (map "c:rightbutton" "copy-clipboard")))))

-    (define global-keymap (make-object wx:keymap%))
+    (define global-keymap (make-object 
+			   (class-asi wx:keymap%
+			     (public
+			       [DUMMY (eval '(make-rectangular 1 1))]))))
 					     
    (setup-global-keymap global-keymap))