Scroll Up/Down

 

Compatibilities:

This item has not yet been rated

Scrolls text

-- visit my shockwave site -- http://www.unixville.com/~shehal/ -- mailto: shehal@mediasolv.com -- I work for MediaSolv.com -- visit RISSA"s site -- http://www.geocities.com/~marissaj/ property scrollLines property scrollDirection property rolloverCursor property currentCursor property currentSprite property scrollMember on beginSprite me   currentSprite = sprite(me.spriteNum)   currentCursor = sprite(currentSprite).cursor end beginSprite on mouseUp if scrollDirection = TRUE then     scrollByLine member scrollMember, scrollLines   else     scrollByLine member scrollMember, (-1*scrollLines)   end if end mouseUp on mouseEnter   sprite(currentSprite).cursor = rolloverCursor end mouseEnter on mouseLeave   sprite(currentSprite).cursor = currentCursor end mouseLeave on getPropertyDescriptionList   set description = [:]   addProp description,#scrollLines, [#default: 5, #format :#integer, #comment:"Number of lines to Scroll"]   addProp description,#rolloverCursor, [#default: 280, #format :#cursor, #comment:"Rollover Cursor"]   addProp description,#scrollDirection, [#default: TRUE, #format :#boolean, #comment:"Scroll Up ?"]     addProp description, #scrollMember, [#default: 1, #format : #integer, #comment: "Text Member to Scroll"]     return description   end