home *** CD-ROM | disk | FTP | other *** search
/ Galleria D'arte: Manet / Manet.iso / Dati / Gadgets.dxr / Internal_8_scrolliMMAGINI.ls < prev    next >
Encoding:
Text File  |  2000-12-21  |  1.2 KB  |  46 lines
  1. property pCastORIG, pCastFB1, pDirezione
  2.  
  3. on getPropertyDescriptionList
  4.   pippo = the memberNum of sprite the currentSpriteNum
  5.   pluto = pippo + 1
  6.   paperino = pluto + 1
  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], #pDirezione: [#comment: "Direzione", #format: #integer, #default: "1", #range: [-1, 1]]]
  8.   return propertyDescriptionList
  9. end
  10.  
  11. on mouseWithin me
  12.   tmp = sprite(the currentSpriteNum).member
  13.   nome = member(tmp).name
  14.   if nome contains "f3" then
  15.     exit
  16.   else
  17.     set the memberNum of sprite the currentSpriteNum to pCastFB1
  18.     cursor(280)
  19.   end if
  20. end
  21.  
  22. on mouseLeave me
  23.   tmp = sprite(the currentSpriteNum).member
  24.   nome = member(tmp).name
  25.   if nome contains "f3" then
  26.     exit
  27.   else
  28.     set the memberNum of sprite the currentSpriteNum to pCastORIG
  29.     cursor(-1)
  30.   end if
  31. end
  32.  
  33. on mouseDown me
  34.   tmp = sprite(the currentSpriteNum).member
  35.   nome = member(tmp).name
  36.   if nome contains "f3" then
  37.     exit
  38.   else
  39.     cursor(280)
  40.     scrolla(pDirezione)
  41.   end if
  42. end
  43.  
  44. on mouseUp me
  45. end
  46.