home *** CD-ROM | disk | FTP | other *** search
/ Maximum CD 2007 February / maximum-cd-2007-02.iso / main.dxr / Internal_185_scrollTextUp.b.ls < prev    next >
Encoding:
Text File  |  2006-07-19  |  1.1 KB  |  47 lines
  1. property textH, copyMem, sn
  2.  
  3. on getPropertyDescriptionList me
  4.   description = [:]
  5.   addProp(description, #textH, [#default: 0, #format: #integer, #comment: "Text Height: "])
  6.   addProp(description, #copyMem, [#default: "bodyCopy", #format: #string, #comment: "Body Copy Member Name:"])
  7.   return description
  8. end
  9.  
  10. on beginSprite me
  11.   if member(copyMem).scrollTop > 0 then
  12.     sprite(me.spriteNum).visible = 1
  13.   else
  14.     sprite(me.spriteNum).visible = 0
  15.   end if
  16.   sn = me.spriteNum
  17. end
  18.  
  19. on selfUpdate
  20.   if member(copyMem).scrollTop > 0 then
  21.     sprite(sn).visible = 1
  22.   else
  23.     sprite(sn).visible = 0
  24.   end if
  25. end
  26.  
  27. on mouseDown me
  28.   repeat while the stillDown
  29.     member(copyMem).scrollTop = member(copyMem).scrollTop - 2
  30.     if member(copyMem).scrollTop > 0 then
  31.       sprite(me.spriteNum).visible = 1
  32.     else
  33.       sprite(me.spriteNum).visible = 0
  34.     end if
  35.     if (member(copyMem).height - member(copyMem).scrollTop) > textH then
  36.       sprite(86).visible = 1
  37.     else
  38.       sprite(86).visible = 0
  39.     end if
  40.     updateStage()
  41.   end repeat
  42. end
  43.  
  44. on endSprite me
  45.   sprite(me.spriteNum).visible = 1
  46. end
  47.