From 027e8d90fdd3f74698ed40974294fd053a70cd20 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adam@chlipala.net>
Date: Sun, 11 Sep 2011 14:14:49 -0400
Subject: New Basis functions: preventDefault and stopPropagation (code
 contributed by Vladimir Shabanov)

---
 lib/js/urweb.js | 21 +++++++++++++++++----
 1 file changed, 17 insertions(+), 4 deletions(-)

(limited to 'lib/js')

diff --git a/lib/js/urweb.js b/lib/js/urweb.js
index 7f636ef9..d7149eba 100644
--- a/lib/js/urweb.js
+++ b/lib/js/urweb.js
@@ -215,9 +215,9 @@ function kc() {
 function uw_handler(name, f) {
     var old = document[name];
     if (old == undefined)
-        document[name] = function() { execF(f); return false; };
+        document[name] = function(event) { uw_event = event; execF(f); };
     else
-        document[name] = function() { old(); execF(f); return false; };
+        document[name] = function(event) { uw_event = event; old(); execF(f); };
 }
 
 function uw_onClick(f) {
@@ -239,9 +239,9 @@ function uw_onMouseup(f) {
 function uw_keyHandler(name, f) {
     var old = document[name];
     if (old == undefined)
-        document[name] = function(event) { uw_event = event; execF(execF(f, kc())); return false; };
+        document[name] = function(event) { uw_event = event; execF(execF(f, kc())); };
     else
-        document[name] = function(event) { uw_event = event; old(); execF(execF(f, kc())); return false; };
+        document[name] = function(event) { uw_event = event; old(); execF(execF(f, kc())); };
 }
 
 function uw_onKeydown(f) {
@@ -256,6 +256,19 @@ function uw_onKeyup(f) {
     uw_keyHandler("onkeyup", f);
 }
 
+// Cancelling of further event processing
+
+function uw_preventDefault() {
+    var e = window.event ? window.event : uw_event;
+    e.returnValue = false;
+    if (e.preventDefault) e.preventDefault();
+}
+
+function uw_stopPropagation() {
+    var e = window.event ? window.event : uw_event;
+    e.cancelBubble = true;
+    if (e.stopPropagation) e.stopPropagation();
+}
 
 // Embedding closures in XML strings
 
-- 
cgit v1.2.3