Hi all...
I wrote this simple little utility to do a user defined line of code on a
user defined mouse event. Use it if you want, and if anyone's got anything
to add to it to make it better, let us know.
Thanks,
Michael M.
----------------------------------------------------
property pSp
property pHandler
property pDoWhat
on beginSprite(me)
pSp = sprite(me.spriteNum)
end
on getPropertyDescriptionList
theList = [:]
listy = [:]
listy.addProp(#comment, "On which handler does the line of code work?")
listy.addProp(#format, #string)
listy.addProp(#default, #void)
listy.addProp(#range, ["mouseUp","mouseDown","mouseEnter",
"mouseLeave","mouseUpOutside",
"mouseWithin","rightMouseDown","rightMouseUp"])
theList.addProp(#pHandler, listy)
listy = [:]
listy.addProp(#comment, "What is the line of code?")
listy.addProp(#format, #string)
listy.addProp(#default, #void)
theList.addProp(#pDoWhat, listy)
return theList
end
on mouseUp(me)
if pHandler = "mouseUp" then
do(pDoWhat)
end if
end
on mouseDown(me)
if pHandler = "mouseDown" then
do(pDoWhat)
end if
end
on mouseEnter(me)
if pHandler = "mouseEnter" then
do(pDoWhat)
end if
end
on mouseLeave(me)
if pHandler = "mouseLeave" then
do(pDoWhat)
end if
end
on mouseUpOutside(me)
if pHandler = "mouseUpOutside" then
do(pDoWhat)
end if
end
on mouseWithin(me)
if pHandler = "mouseWithin" then
do(pDoWhat)
end if
end
on rightMouseDown(me)
if pHandler = "rightMouseDown" then
do(pDoWhat)
end if
end
on rightMouseUp(me)
if pHandler = "rightMouseUp" then
do(pDoWhat)
end if
end
[To remove yourself from this list, or to change to digest mode, go to
http://www.penworks.com/lingo-l.cgi To post messages to the list, email [EMAIL
PROTECTED] (Problems, email [EMAIL PROTECTED]). Lingo-L is for learning and helping
with programming Lingo. Thanks!]
