1 files changed, 9 insertions, 0 deletions
diff --git a/tests/setActive.ur b/tests/setActive.ur
new file mode 100644
index 00000000..e937c1d9
--- /dev/null
+++ b/tests/setActive.ur
@@ -0,0 +1,9 @@
+fun main () : transaction page =
+    i <- fresh;
+    x <- source <xml/>;
+    return <xml>
+      <body>
+        <dyn signal={signal x} />
+        <active code={set x <xml><ctextbox/><ctextbox id={i}/><ctextbox/><active code={giveFocus i; return <xml/>}/></xml>; return <xml/>}/>
+      </body>
+    </xml>