summaryrefslogtreecommitdiff
path: root/demo/more/select.ur
diff options
context:
space:
mode:
Diffstat (limited to 'demo/more/select.ur')
-rw-r--r--demo/more/select.ur3
1 files changed, 3 insertions, 0 deletions
diff --git a/demo/more/select.ur b/demo/more/select.ur
new file mode 100644
index 00000000..17cff4dd
--- /dev/null
+++ b/demo/more/select.ur
@@ -0,0 +1,3 @@
+fun selectChar choices current =
+ List.mapX (fn (ch, label) =>
+ <xml><option value={String.str ch} selected={current = Some ch}>{[label]}</option></xml>) choices