diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-11-01 10:20:20 -0500 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-11-01 10:20:20 -0500 |
| commit | e20e964083a048ad4cbb88cc1af3790694f51dfa (patch) | |
| tree | 09a704610f44afd4ad023245a9f59d901c3c4345 /demo/more/select.ur | |
| parent | 1be7e54fa70a40b16164f69e7153ada0e4935994 (diff) | |
Bidding interface
Diffstat (limited to 'demo/more/select.ur')
| -rw-r--r-- | demo/more/select.ur | 3 |
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 |