diff options
author | Benjamin Barenblat <benjamin@barenblat.name> | 2016-09-17 20:55:07 -0400 |
---|---|---|
committer | Benjamin Barenblat <benjamin@barenblat.name> | 2016-09-17 20:55:07 -0400 |
commit | 095bf921806b23213775180428c2bd230cb9adff (patch) | |
tree | 85c1e4a826a2d3d81630f361f8038f7e8c4a3712 /mdl | |
parent | e5853953b45283638d2088c3df67e8bb04fc02a8 (diff) |
Add basic modal new-next-action dialogue
Diffstat (limited to 'mdl')
-rw-r--r-- | mdl/mdl.ur | 11 |
1 files changed, 11 insertions, 0 deletions
@@ -15,6 +15,17 @@ specific language governing permissions and limitations under the License. *) structure Classes = MdlClasses open Classes +structure Textbox = struct + fun make (placeholder : string) : transaction xbody = + 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> +end + structure Toast = struct val make : transaction {Placeholder: xbody, Show: string -> transaction unit} = |