From 6d5d1a66b3d72515ea14167be005a9a3faf19b0e Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Thu, 2 Apr 2009 10:57:14 -0400
Subject: Don't self-update ctextboxes unnecessarily

---
 lib/js/urweb.js | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib/js')

diff --git a/lib/js/urweb.js b/lib/js/urweb.js
index 4daee66d..f4ed111b 100644
--- a/lib/js/urweb.js
+++ b/lib/js/urweb.js
@@ -88,7 +88,7 @@ function inp(t, s) {
   var x = document.createElement(t);
   x.value = s.v;
   addNode(x);
-  s.h = cons(function() { x.value = s.v }, s.h);
+  s.h = cons(function() { if (x.value != s.v) x.value = s.v }, s.h);
   x.onkeyup = function() { sv(s, x.value) };
   return x;
 }
-- 
cgit v1.2.3