On 5/28/11 11:26 PM, dunb...@aol.com wrote:
A direct way to do it, though with my quick workup one must move slowly, is to
have this in the card or stack script:
on mouseMove
put the rect of this stack into tRect
put the screenMouseLoc into tLoc
if item 3 of tRect - item 1 of tLoc< 20 and item 4 of tRect - item 2 of tLoc<
20 then
set the rect of this stack to item 1 of tRect& ","& item 2 of tRect& ","& item 1 of tLoc +
15& ","& item 2 of tLoc + 15
end if
end mouseMove
Perhaps it can be improved to allow for faster mouse movements?
local sDrag
on mousedown
put the rect of this stack into tRect
put the screenMouseLoc into tLoc
put (item 3 of tRect - item 1 of tLoc < 20 and \
item 4 of tRect - item 2 of tLoc < 20) into sDrag
end mousedown
on mouseup
put false into sDrag
end mouseup
on mouseMove x,y
if sDrag then
put the rect of this stack into tRect
put globalLoc((x,y)) into tLoc
set the rect of this stack to \
item 1 of tRect,item 2 of tRect,item 1 of tLoc + 15,item 2 of
tLoc + 15
else
pass mouseMove
end if
end mouseMove
--
Jacqueline Landman Gay | jac...@hyperactivesw.com
HyperActive Software | http://www.hyperactivesw.com
_______________________________________________
use-livecode mailing list
use-livecode@lists.runrev.com
Please visit this url to subscribe, unsubscribe and manage your subscription
preferences:
http://lists.runrev.com/mailman/listinfo/use-livecode
