home *** CD-ROM | disk | FTP | other *** search
/ Galleria D'arte: Manet / Manet.iso / Dati / Theme5.dxr / Internal_18_scrollUp.ls < prev    next >
Encoding:
Text File  |  2000-12-21  |  1.5 KB  |  31 lines

  1. property pCastORIG, pCastFB1, pFB2, pCastFB2, pCUR, pMASK, pCURdn, pMASKdn
  2.  
  3. on getPropertyDescriptionList
  4.   pippo = the memberNum of sprite the currentSpriteNum
  5.   pluto = pippo + 1
  6.   paperino = pippo + 2
  7.   propertyDescriptionList = [#pCastORIG: [#comment: "Numero elemento del Cast di origine del bottone", #format: #integer, #default: pippo], #pCastFB1: [#comment: "Numero elemento del Cast del primo feedback", #format: #integer, #default: pluto], #pFB2: [#comment: "E' previsto il secondo feedback?", #format: #boolean, #default: 0], #pCastFB2: [#comment: "Eventuale numero elemento del Cast del secondo feedback", #format: #integer, #default: paperino], #pCUR: [#comment: "Numero elemento del Cast da utilizzare come cursore", #format: #bitmap, #default: member(100)], #pMASK: [#comment: "Maschera cursore", #format: #bitmap, #default: member(101)], #pCURdn: [#comment: "Numero elemento del Cast da utilizzare come cursore per il mousedown", #format: #bitmap, #default: member(102)], #pMASKdn: [#comment: "Maschera cursore", #format: #bitmap, #default: member(103)]]
  8.   return propertyDescriptionList
  9. end
  10.  
  11. on mouseWithin me
  12.   set the memberNum of sprite the currentSpriteNum to pCastFB1
  13.   cursor(280)
  14.   updateStage()
  15. end
  16.  
  17. on mouseLeave me
  18.   set the memberNum of sprite the currentSpriteNum to pCastORIG
  19.   cursor(-1)
  20.   updateStage()
  21. end
  22.  
  23. on mouseDown me
  24.   testo = the member of sprite 7
  25.   scrollByLine(member(testo), -1)
  26.   repeat while the stillDown
  27.     scrollByLine(member(testo), -1)
  28.     updateStage()
  29.   end repeat
  30. end
  31.