dragging a stack around

[Colin Holgate]

There may be a neater way to do it, but this works (as a stack script):

global startclickloc

on mousedown
   put the loc of this stack into startloc
   put the clickloc into startclickloc
   send checkloc to this card in 5
end mousedown

on checkloc
   if the mouse is up then exit checkloc
   put item 1 of the loc of this stack - item 1 of startclickloc + the mouseh,  item 2 of the loc of this stack - item 2 of startclickloc + the mousev into newloc
   set the loc of this stack to newloc
   send checkloc to this card in 5   
end checkloc