From 33cd625a3dc71e70da92585179758d3cb73b73f7 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 8 Jul 2007 00:24:03 +0000
Subject: [PATCH] 370.6

svn: r6849

original commit: a1e2d59690489ffc0470267b2a451a84b22ce430
---
 collects/mred/private/kernel.ss | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/collects/mred/private/kernel.ss b/collects/mred/private/kernel.ss
index 73f56d0c..5225ea4e 100644
--- a/collects/mred/private/kernel.ss
+++ b/collects/mred/private/kernel.ss
@@ -467,7 +467,9 @@
     set-direction
     get-position
     set-position)
-  (define-class key-event% event% ([key-code #\nul] [shift-down #f] [control-down #f] [meta-down #f] [alt-down #f] [x 0] [y 0] [time-stamp 0])
+  (define-class key-event% event% ([key-code #\nul] [shift-down #f] [control-down #f] [meta-down #f] [alt-down #f] [x 0] [y 0] [time-stamp 0] [caps-down #f])
+    set-other-caps-key-code
+    get-other-caps-key-code
     set-other-shift-altgr-key-code
     get-other-shift-altgr-key-code
     set-other-altgr-key-code
@@ -486,12 +488,14 @@
     set-meta-down
     get-alt-down
     set-alt-down
+    get-caps-down
+    set-caps-down
     get-x
     set-x
     get-y
     set-y)
   (define-function key-symbol-to-integer)
-  (define-class mouse-event% event% (event-type [left-down #f] [middle-down #f] [right-down #f] [x 0] [y 0] [shift-down #f] [control-down #f] [meta-down #f] [alt-down #f] [time-stamp 0])
+  (define-class mouse-event% event% (event-type [left-down #f] [middle-down #f] [right-down #f] [x 0] [y 0] [shift-down #f] [control-down #f] [meta-down #f] [alt-down #f] [time-stamp 0] [caps-down #f])
     moving?
     leaving?
     entering?
@@ -515,6 +519,8 @@
     set-meta-down
     get-alt-down
     set-alt-down
+    get-caps-down
+    set-caps-down
     get-x
     set-x
     get-y