Support saving new actions

1 files changed, 14 insertions, 7 deletions

diff --git a/mdl/mdl.ur b/mdl/mdl.ur
index 5f68ab1..90f03a1 100644
--- a/mdl/mdl.ur
+++ b/mdl/mdl.ur
@@ -15,15 +15,22 @@ specific language governing permissions and limitations under the License. *)
 structure Classes = MdlClasses
 open Classes
 
+val upgradeAllRegistered = MdlFfi.upgradeAllRegistered
+
 structure Textbox = struct
-  fun make (placeholder : string) : transaction xbody =
+  fun make (placeholder : string) : transaction {Source : source string,
+                                                 Xml : xbody} =
+    contents <- source "";
     id <- fresh;
-    return <xml>
-      <div class="mdl-textfield mdl-js-textfield">
-        <ctextbox class="mdl-textfield__input" id={id} />
-        <label class="mdl-textfield__label" for={id}>{[placeholder]}</label>
-      </div>
-    </xml>
+    return {
+      Source = contents,
+      Xml = <xml>
+        <div class="mdl-textfield mdl-js-textfield">
+          <ctextbox class="mdl-textfield__input" id={id} source={contents} />
+          <label class="mdl-textfield__label" for={id}>{[placeholder]}</label>
+        </div>
+      </xml>
+    }
 end
 
 structure Toast = struct