home *** CD-ROM | disk | FTP | other *** search
/ Knitting Made Easy / Knitting.iso / App / Patterns.dxr / behaviors_151_ScrollUp.ls < prev    next >
Encoding:
Text File  |  2002-04-18  |  1.5 KB  |  73 lines

  1. property ScrollThumbSprite, DownMember, button_active
  2.  
  3. on getPropertyDescriptionList
  4.   description = [:]
  5.   if the currentSpriteNum = 0 then
  6.     memdefault = 0
  7.   else
  8.     memref = the member of sprite the currentSpriteNum
  9.     castLibNum = memref.castLibNum
  10.     memdefault = member(memref.memberNum + 1, castLibNum)
  11.   end if
  12.   addProp(description, #DownMember, [#default: memdefault, #format: #bitmap, #comment: "Pict for Down:"])
  13.   addProp(description, #ScrollThumbSprite, [#default: the currentSpriteNum + 1, #format: #integer, #comment: "Sprite Number of Thumb:"])
  14.   return description
  15. end
  16.  
  17. on getBehaviorDescription
  18.   return "Vertical Multiline Textfield Scroll Up Button"
  19. end
  20.  
  21. on getAssocMembers
  22.   myPropList = [DownMember]
  23.   return myPropList
  24. end
  25.  
  26. on endSprite me
  27.   puppetSprite(me.spriteNum, 0)
  28. end
  29.  
  30. on mouseUp me
  31.   me.button_active = 0
  32.   swap_members(me)
  33.   sendSprite(me.ScrollThumbSprite, #scroll_a_line, -1)
  34. end
  35.  
  36. on mouseUpOutSide me
  37.   me.button_active = 0
  38. end
  39.  
  40. on mouseDown me
  41.   swap_members(me)
  42.   me.button_active = 1
  43.   startTimer()
  44. end
  45.  
  46. on mouseLeave me
  47.   if me.button_active then
  48.     swap_members(me)
  49.   end if
  50. end
  51.  
  52. on mouseEnter me
  53.   if me.button_active then
  54.     swap_members(me)
  55.     startTimer()
  56.   end if
  57. end
  58.  
  59. on exitFrame me
  60.   if me.button_active then
  61.     if the timer > 30 then
  62.       sendSprite(me.ScrollThumbSprite, #scroll_a_line, -1)
  63.     end if
  64.   end if
  65. end
  66.  
  67. on swap_members me
  68.   puppetSprite(me.spriteNum, 1)
  69.   temp = the member of sprite me.spriteNum
  70.   set the member of sprite the spriteNum of me to member(me.DownMember)
  71.   me.DownMember = temp
  72. end
  73.