Ok, I just tested the behaviour, and a couple of minor adjustments
See the scrollText handler, the gpdl[#pmText] format, and an endSprite
handler, (just in case):
--a generic scroll bar
property ptTime, pmText, pnScroll
on mouseDown me
timeOut ("scrollbar").new (ptTime, #scrollText, me)
end
on mouseUp me
timeOut ("scrollbar").forget()
end
on mouseUpOutside me
mouseUp me
end
on endSprite me
timeOut ("scrollbar").forget()
end
on scrollText me
put pmText
pmText.scrollByLine(pnScroll)
updateStage
end
on getPropertyDescriptionList me
gpdl = [:]
gpdl[#ptTime] = [#comment: "scroll delay in milliseconds", #format:
#integer, #default: 500]
gpdl[#pmText] = [#comment: "text cast member", #format: #text, #default:
""]
gpdl[#pnScroll] = [#comment: "scroll amount", #format: #integer, #default:
1]
return gpdl
end
[To remove yourself from this list, or to change to digest mode, go to
http://www.penworks.com/LUJ/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!]
