drag stack window

[Klaus Major]

Hi Viktoras,

> Dear all,
>
> If window shape is set to graphics (with no title bar and controls  
> shown)
> how do we make the window dragable, so it can be dragged around the  
> desktop?

I ususally create a simple button with the size of the card/stack  
with the following script
and set its INK to "noop" :-)

###################
local maydrag

on mouseDown
   put mouseH() & "," & mouseV() into maydrag
end mouseDown

on mouseMove
   if maydrag is not empty then
     set the topLeft of this stack to item 1 of the screenMouseLoc -  
item 1 of maydrag,item 2 of the screenMouseLoc - item 2 of maydrag
   end if
end mouseMove

on mouseUp
   put empty into maydrag
end mouseUp

on mouserelease
   mouseup
end mouserelease
##################

> Viktoras

Regards

Klaus Major
klaus at major-k.de
http://www.major-k.de