From 33dbb6c0000a5d82267f984191e7390be86b7dfd Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Tue, 8 Sep 2009 10:55:49 -0400 Subject: dragList demo working, save for Gecko load delay and highlighting --- demo/more/dragList.ur | 26 ++++++++++++++++---------- 1 file changed, 16 insertions(+), 10 deletions(-) (limited to 'demo/more/dragList.ur') diff --git a/demo/more/dragList.ur b/demo/more/dragList.ur index ddb50e82..efdafc8a 100644 --- a/demo/more/dragList.ur +++ b/demo/more/dragList.ur @@ -10,11 +10,12 @@ fun draggableList title items = onmouseover={di <- get draggingItem; case di of None => return () - | Some di => item1 <- get di; - item2 <- get itemSource; - set di item2; - set itemSource item1}> - {[s]}}/> + | Some di => original <- get di; + movedOver <- get itemSource; + set di movedOver; + set itemSource original; + set draggingItem (Some itemSource)}> + {[s]}) (signal itemSource)}/> ) itemSources} @@ -26,8 +27,13 @@ fun main () = :: "Sus scrofa ussuricus" :: "Sus scrofa cristatus" :: "Sus scrofa taiwanus" :: []); - return - {bears} - {beers} - {boars} - + return + + + + + {bears} + {beers} + {boars} + + -- cgit v1.2.3