home *** CD-ROM | disk | FTP | other *** search
/ SKIP - The Laundry Guide / LEVER_CD.iso / lever / ssvg.dir / 00064_zmoutH.ls < prev    next >
Encoding:
Text File  |  1997-02-21  |  285 b   |  12 lines
  1. on mouseDown
  2.   repeat while the stillDown = 1
  3.     ZoomOut()
  4.   end repeat
  5. end
  6.  
  7. on ZoomOut
  8.   checkHPan()
  9.   set ZoomInValue to the text of cast "ZoomAngle" + 3
  10.   SwingPanoMovie(the text of cast "HPanAngle", the text of cast "VPanAngle", ZoomInValue, 3, 1, the text of cast "Quality")
  11. end
  12.