drag stack window

[Viktoras Didziulis]

Thanks Klaus ! 
 
It works. I assigned the script directly to an image that sets the shape of
the window. No button was necessary. Thanks again. 
 
Viktoras 
 
-------Original Message------- 
 
From: Klaus Major 
Date: 09/04/06 13:15:28 
To: How to use Revolution 
Subject: Re: drag stack window 
 
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 
 
_______________________________________________ 
use-revolution mailing list 
use-revolution at lists.runrev.com 
Please visit this url to subscribe, unsubscribe and manage your subscription
preferences: 
http://lists.runrev.com/mailman/listinfo/use-revolution