home *** CD-ROM | disk | FTP | other *** search
/ 1&1 Multimedia Trend 1996 10 B / MM_TREND.ISO / prog / t-online / shared.dir / 00303.ls < prev    next >
Encoding:
Text File  |  1996-08-16  |  1.8 KB  |  87 lines
  1. on InitSystem
  2.   global gxUtilObj, gxFileObj, gxMsgObj, gbIsPC, gsWinPath, gsIniFile, gsMoviePath
  3.   if not gbIsPC then
  4.     exit
  5.   end if
  6.   if the colorDepth < 8 then
  7.     alert("Die Darstellung ist bei 16 Fraben nicht orginalgetreu!")
  8.   end if
  9.   openXLib("MovUtils.DLL")
  10.   if objectp(gxUtilObj) then
  11.     gxUtilObj(mdispose)
  12.   end if
  13.   set gxUtilObj to MovUtils(mnew)
  14.   set result to value(gxUtilObj)
  15.   if result < 0 then
  16.     Fehler(result, "Das Modul: movutils.dll ist nicht vorhanden!")
  17.     exit
  18.   end if
  19.   openXLib("fileio.DLL")
  20.   if objectp(gxFileObj) then
  21.     gxFileObj(mdispose)
  22.   end if
  23.   openXLib("cawXobj.DLL")
  24.   if objectp(gxMsgObj) then
  25.     gxMsgObj(mdispose)
  26.   end if
  27.   getVolName()
  28.   getWinPath()
  29.   set gsMoviePath to the pathName
  30. end
  31.  
  32. on ClearSystem
  33.   global gxUtilObj, gxFileObj, xMsgXobj
  34.   if objectp(gxUtilObj) then
  35.     gxUtilObj(mdispose)
  36.   end if
  37.   if objectp(gxFileObj) then
  38.     gxFileObj(mdispose)
  39.   end if
  40.   if objectp(gxMsgObj) then
  41.     gxMsgObj(mdispose)
  42.   end if
  43.   closeXLib()
  44. end
  45.  
  46. on getVolName
  47.   global gxUtilObj, gsX, gsIniFile
  48.   if objectp(gxUtilObj) then
  49.     set gsX to gxUtilObj(mGetVolName, the pathName)
  50.   else
  51.     Fehler(101, "--")
  52.   end if
  53. end
  54.  
  55. on getSysPath
  56.   global gxUtilObj, gsSysPath
  57.   if objectp(gxUtilObj) then
  58.     set gsSysPath to gxUtilObj(mGetSystemPath)
  59.   else
  60.     Fehler(101, "--")
  61.   end if
  62. end
  63.  
  64. on getWinPath
  65.   global gxUtilObj, gsWinPath, gsIniFile
  66.   if objectp(gxUtilObj) then
  67.     set gsWinPath to gxUtilObj(mGetWindowsPath)
  68.   else
  69.     Fehler(101, "--")
  70.   end if
  71.   set gsIniFile to gsWinPath & "\" & gsIniFile
  72. end
  73.  
  74. on setPath
  75.   global gxUtilObj
  76.   if objectp(gxUtilObj) then
  77.     set s to field "volDirectory"
  78.     set result to gxUtilObj(mSetDefaultPath, s)
  79.     if result = -1 then
  80.       alert("No such directory exists. Please try again...")
  81.       exit
  82.     end if
  83.   else
  84.     Fehler(101, "--")
  85.   end if
  86. end
  87.