summaryrefslogtreecommitdiff
path: root/demo/more/dragList.ur
diff options
context:
space:
mode:
Diffstat (limited to 'demo/more/dragList.ur')
-rw-r--r--demo/more/dragList.ur20
1 files changed, 10 insertions, 10 deletions
diff --git a/demo/more/dragList.ur b/demo/more/dragList.ur
index c4e9b69a..df4fc4fc 100644
--- a/demo/more/dragList.ur
+++ b/demo/more/dragList.ur
@@ -5,16 +5,16 @@ fun draggableList title items =
<h2>Great {[title]}</h2>
<ul>
{List.mapX (fn itemSource => <xml>
- <li onmousedown={set draggingItem (Some itemSource)}
- onmouseup={set draggingItem None}
- onmouseover={di <- get draggingItem;
- case di of
- None => return ()
- | Some di => original <- get di;
- movedOver <- get itemSource;
- set di movedOver;
- set itemSource original;
- set draggingItem (Some itemSource)}>
+ <li onmousedown={fn _ => set draggingItem (Some itemSource)}
+ onmouseup={fn _ => set draggingItem None}
+ onmouseover={fn _ => di <- get draggingItem;
+ case di of
+ None => return ()
+ | Some di => original <- get di;
+ movedOver <- get itemSource;
+ set di movedOver;
+ set itemSource original;
+ set draggingItem (Some itemSource)}>
<dyn signal={Monad.mp cdata (signal itemSource)}/>
</li></xml>) itemSources}
</ul>