home *** CD-ROM | disk | FTP | other *** search
/ The Complete Web Studio 2.0 / WS2_CD1.ISO / Tutorial / Tutorial.exe / Tutorial.dxr / 00001.ls next >
Encoding:
Text File  |  1999-07-29  |  660 b   |  25 lines
  1. on prepareMovie
  2.   global glstMovies, giNext
  3.   clearGlobals()
  4.   giNext = 1
  5.   glstMovies = ["WS_01C", "WS_02", "WS_04_10", "WS_11_12", "WS_13", "WS_14_22", "WS_23_29", "WS_30_33", "WS_34", "WS_35_37", "WS_38_44", "WS_45C", "WS_46_51", "WS_52_57", "WS_58", "WS_59", "WS_60"]
  6.   cursor(4)
  7. end
  8.  
  9. on fValidMonitorSettings
  10.   if the colorDepth <> 16 then
  11.     return 0
  12.   end if
  13.   lstMonitors = duplicate(the deskTopRectList)
  14.   repeat with rectMonitor in lstMonitors
  15.     if (rectMonitor[1] = 0) and (rectMonitor[2] = 0) then
  16.       exit repeat
  17.     end if
  18.   end repeat
  19.   if (rectMonitor[3] < 800) or (rectMonitor[4] < 600) then
  20.     return 0
  21.   else
  22.     return 1
  23.   end if
  24. end
  25.