home *** CD-ROM | disk | FTP | other *** search
/ 1&1 Multimedia Trend 1996 11 D / MM_TREND.ISO / prog / t_online / shared.dir / 00303.ls < prev    next >
Encoding:
Text File  |  1996-09-18  |  848 b   |  42 lines
  1. on getVolName
  2.   global gxUtilObj, gsX, gsIniFile
  3.   if objectp(gxUtilObj) then
  4.     set gsX to gxUtilObj(mGetVolName, the pathName)
  5.   else
  6.     Fehler(101, "--")
  7.   end if
  8. end
  9.  
  10. on getSysPath
  11.   global gxUtilObj, gsSysPath
  12.   if objectp(gxUtilObj) then
  13.     set gsSysPath to gxUtilObj(mGetSystemPath)
  14.   else
  15.     Fehler(101, "--")
  16.   end if
  17. end
  18.  
  19. on getWinPath
  20.   global gxUtilObj, gsWinPath, gsIniFile
  21.   if objectp(gxUtilObj) then
  22.     set gsWinPath to gxUtilObj(mGetWindowsPath)
  23.   else
  24.     Fehler(101, "--")
  25.   end if
  26.   set gsIniFile to gsWinPath & "\" & gsIniFile
  27. end
  28.  
  29. on setPath
  30.   global gxUtilObj
  31.   if objectp(gxUtilObj) then
  32.     set s to field "volDirectory"
  33.     set result to gxUtilObj(mSetDefaultPath, s)
  34.     if result = -1 then
  35.       alert("No such directory exists. Please try again...")
  36.       exit
  37.     end if
  38.   else
  39.     Fehler(101, "--")
  40.   end if
  41. end
  42.