home *** CD-ROM | disk | FTP | other *** search
/ Video Dictionary 1 / Video Dictionary 1 - Disc 1.iso / pc / Others / Openend.Dxr / 00002_GetQTVersionAndXtraStatus.ls < prev    next >
Encoding:
Text File  |  1999-06-11  |  1.0 KB  |  37 lines
  1. on getqtversionandxtrastatus
  2.   set myqtxtraresult to -1
  3.   set myqtpflag to 0
  4.   set mywinflag to 0
  5.   set qtconfiglist to [0, 0]
  6.   repeat with x = 1 to the number of xtras
  7.     if the name of xtra(x) = "QuickTimeSupport" then
  8.       set myqtxtraresult to quicktimeversion()
  9.       if myqtxtraresult < 0 then
  10.         set myqtxtraresult to -1
  11.       end if
  12.       exit repeat
  13.     end if
  14.   end repeat
  15.   case 1 of
  16.     (myqtxtraresult >= 3):
  17.       setAt(qtconfiglist, 2, 3)
  18.     ((myqtxtraresult >= 2) and (myqtxtraresult < 3)):
  19.       setAt(qtconfiglist, 1, 2)
  20.       setAt(qtconfiglist, 2, 2)
  21.     (myqtxtraresult = 0):
  22.       setAt(qtconfiglist, 1, 0)
  23.       setAt(qtconfiglist, 2, 0)
  24.     (myqtxtraresult = -1):
  25.       setAt(qtconfiglist, 2, -1)
  26.   end case
  27.   set myqtpflag to the quickTimePresent
  28.   set mywinflag to the platform contains "Windows"
  29.   case 1 of
  30.     (myqtpflag and mywinflag):
  31.       setAt(qtconfiglist, 1, 2)
  32.     ((myqtpflag = 1) and (mywinflag = 0) and (myqtxtraresult = -1)):
  33.       setAt(qtconfiglist, 1, 9)
  34.   end case
  35.   return qtconfiglist
  36. end
  37.