Hi William,
This should do the trick you want:
local lAllowDrag
---------------------------------
on mouseDown
set cursor to 28
lock cursor
set the layer of me to 100
set the dragdata["text"] to the short name of the target
put the (mouseH - the left of me) & comma & (the mouseV - the top
of me) into lAllowDrag
end mouseDown
---------------------------------
on dragMove x,y
if lAllowDrag is empty then exit dragMove
set the topLeft of me to (x - item 1 of lAllowDrag) & comma & (y -
item 2 of lAllowDrag)
if the mouse is up then
put empty into lAllowDrag
unlock cursor
end if
end dragMove
---------------------------------
on mouseEnter
put empty into lAllowDrag
end mouseEnter
Best Regards from Paris,
Eric Chatonet
------------------------------------------------------------------------
----------------------
http://www.sosmartsoftware.com/ [EMAIL PROTECTED]/
Le 19 déc. 05 à 07:39, William de Smet a écrit :
When I put the "grab" command as the last thing the feld is going
nowhere (I can't grab it).
The script works for me as well but want I want is a single
mouseclick to unlock the cursor.
With this script I need to doubleclick tomake it happen. And that's
to difficult for the children I work with.
So can anyone help? Please.. : - )
_______________________________________________
use-revolution mailing list
[email protected]
Please visit this url to subscribe, unsubscribe and manage your subscription
preferences:
http://lists.runrev.com/mailman/listinfo/use-revolution
