From adfa70ae09d13b338efee432b1e0bfc73af5e104 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adam@chlipala.net>
Date: Sat, 21 Jul 2012 10:02:53 -0400
Subject: New event records for key and mouse handlers

---
 src/settings.sml | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

(limited to 'src/settings.sml')

diff --git a/src/settings.sml b/src/settings.sml
index 28739d6a..66bc7238 100644
--- a/src/settings.sml
+++ b/src/settings.sml
@@ -160,7 +160,8 @@ val benignBase = basis ["get_cookie",
                         "onConnectFail",
                         "onDisconnect",
                         "onServerError",
-                        "kc",
+                        "mouseEvent",
+                        "keyEvent",
                         "debug",
                         "rand",
                         "now",
@@ -194,7 +195,8 @@ val clientBase = basis ["get_client_source",
                         "onConnectFail",
                         "onDisconnect",
                         "onServerError",
-                        "kc",
+                        "mouseEvent",
+                        "keyEvent",
                         "onClick",
                         "onDblclick",
                         "onKeydown",
@@ -267,7 +269,8 @@ val jsFuncsBase = basisM [("alert", "alert"),
                           ("substring", "ssub"),
                           ("strcspn", "sspn"),
                           ("strlenGe", "strlenGe"),
-                          ("kc", "kc"),
+                          ("mouseEvent", "uw_mouseEvent"),
+                          ("keyEvent", "uw_keyEvent"),
                           ("minTime", "0"),
 
                           ("islower", "isLower"),
-- 
cgit v1.2.3