home *** CD-ROM | disk | FTP | other *** search
/ Encyklopedia Omnia / Planeta.iso / data / m_info.dir / 00007_Script_TextArrowScroll < prev    next >
Text File  |  2000-10-16  |  782b  |  23 lines
  1. property NStesto, scrollQuantum, scrollDirection
  2.  
  3. on mouseDown
  4.   repeat while the stillDown
  5.     if scrollDirection = #Down then
  6.       set newVloc = (the locV of sprite NStesto) - scrollQuantum
  7.     else
  8.       set newVloc = (the locV of sprite NStesto) + scrollQuantum
  9.     end if
  10.     sendSprite 7, #arrowScroll, newVloc
  11.   end repeat
  12. end
  13.  
  14. on getPropertyDescriptionList
  15.   set p_list = [#NStesto: [#comment:"Numero sprite testo:",¼
  16.                 #format: #integer, #default: 1],¼
  17.                 #scrollQuantum:[#comment:"ScrollQuantum in pixel:",¼
  18.                 #format: #integer, #default: 3],¼
  19.                 #scrollDirection:[#comment:"Direzione di scroll:",¼
  20.                 #format: #string, #default: #Down, #range: [#Up, #Down]]]
  21.   
  22.   return p_list
  23. end