home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 December / WPCDEC97.ISO / DXRS / ARTWDEC.DXR / 00013_ARTViewArt.ls < prev    next >
Encoding:
Text File  |  1997-10-13  |  603 b   |  14 lines
  1. on ARTViewArt
  2.   global ARTGraphicsVeiwFrame, ARTGraphicsFrameNoList, ARTWhichGraphics, ARTTwoGraphicsFrameNoList, ARTGRAPHICSNAMELIST, ARTTWOGRAPHICSNAMELIST, ARTWhichImageName
  3.   if ARTWhichGraphics = 2 then
  4.     set whichFrame to getAt(ARTGraphicsFrameNoList, ARTGraphicsVeiwFrame)
  5.     set ARTWhichImageName to getAt(ARTGRAPHICSNAMELIST, ARTGraphicsVeiwFrame)
  6.   else
  7.     if ARTWhichGraphics = 1 then
  8.       set whichFrame to getAt(ARTTwoGraphicsFrameNoList, ARTGraphicsVeiwFrame)
  9.       set ARTWhichImageName to getAt(ARTTWOGRAPHICSNAMELIST, ARTGraphicsVeiwFrame)
  10.     end if
  11.   end if
  12.   go(whichFrame)
  13. end
  14.