# HG changeset patch
# User Adam Chlipala <adam@chlipala.net>
# Date 1295193479 18000
# Node ID fe470db7feea541c6a279f850a418fa32533481b
# Parent  a5bfed32d4f7220b925a36e76aaccfc8f18d9a23
Fix for handling of some attributes to client-side input widgets, based on a patch from Vladimir Shabanov

diff -r a5bfed32d4f7 -r fe470db7feea src/monoize.sml
--- a/src/monoize.sml	Sun Jan 16 10:38:03 2011 -0500
+++ b/src/monoize.sml	Sun Jan 16 10:57:59 2011 -0500
@@ -3100,28 +3100,33 @@
                                        | ("Onchange", e, _) =>
                                          SOME (strcat [str "addOnChange(d,exec(",
                                                        (L'.EJavaScript (L'.Script, e), loc),
-                                                       str "))"])
+                                                       str "));"])
                                        | (x, e, (L'.TFun ((L'.TRecord [], _), _), _)) =>
                                          SOME (strcat [str ("d." ^ lowercaseFirst x ^ "=exec("),
                                                        (L'.EJavaScript (L'.Script, e), loc),
                                                        str ");"])
                                        | (x, e, _) =>
-                                         let
-                                             val e = (L'.EAbs ("_", (L'.TRecord [], loc), (L'.TRecord [], loc),
-                                                               (L'.EApp ((L'.EApp (liftExpInExp 0 e,
-                                                                                   (L'.EFfiApp ("Basis", "kc", []), loc)),
-                                                                          loc), (L'.ERecord [], loc)), loc)), loc)
-                                         in
-                                             case x of
-                                                 "Onkeyup" =>
-                                                 SOME (strcat [str ("((function(c){addOnKeyUp(d,function(){window.uw_event=window.event;return c();});})(exec("),
-                                                               (L'.EJavaScript (L'.Script, e), loc),
-                                                               str ")));"])
-                                               | _ =>
-                                                 SOME (strcat [str ("((function(c){d." ^ lowercaseFirst x ^ "=function(){window.uw_event=window.event;return c();};})(exec("),
-                                                               (L'.EJavaScript (L'.Script, e), loc),
-                                                               str ")));"])
-                                         end)
+                                         if String.isPrefix "On" x then
+                                             let
+                                                 val e = (L'.EAbs ("_", (L'.TRecord [], loc), (L'.TRecord [], loc),
+                                                                   (L'.EApp ((L'.EApp (liftExpInExp 0 e,
+                                                                                       (L'.EFfiApp ("Basis", "kc", []), loc)),
+                                                                              loc), (L'.ERecord [], loc)), loc)), loc)
+                                             in
+                                                 case x of
+                                                     "Onkeyup" =>
+                                                     SOME (strcat [str ("((function(c){addOnKeyUp(d,function(){window.uw_event=window.event;return c();});})(exec("),
+                                                                   (L'.EJavaScript (L'.Script, e), loc),
+                                                                   str ")));"])
+                                                   | _ =>
+                                                     SOME (strcat [str ("((function(c){d." ^ lowercaseFirst x ^ "=function(){window.uw_event=window.event;return c();};})(exec("),
+                                                                   (L'.EJavaScript (L'.Script, e), loc),
+                                                                   str ")));"])
+                                             end
+                                         else
+                                             SOME (strcat [str ("d." ^ lowercaseFirst x ^ "=exec("),
+                                                           (L'.EJavaScript (L'.Script, e), loc),
+                                                           str ");"]))
                                      attrs
 
                         val t = (L'.TFfi ("Basis", "string"), loc)
diff -r a5bfed32d4f7 -r fe470db7feea tests/vlad4.ur
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/tests/vlad4.ur	Sun Jan 16 10:57:59 2011 -0500
@@ -0,0 +1,6 @@
+fun main () : transaction page =
+    s <- source "";
+    return <xml><body>
+      <ctextbox source={s} value="123" onchange={s <- get s; alert (s ^ "!")}/>
+      <dyn signal={s <- signal s; return (txt s)}/>
+    </body></xml>