home *** CD-ROM | disk | FTP | other *** search
/ PC go! 1996 July / Image.iso / mrmore / mrmore.dir / 00652.ls < prev    next >
Encoding:
Text File  |  1996-04-11  |  867 b   |  28 lines
  1. on exitFrame
  2.   global goGBTools, gsOldDir, gsPopupType
  3.   if gsPopupType = "faxe" then
  4.     set s to "Fax"
  5.   else
  6.     if gsPopupType = "desi" then
  7.       set s to "Design"
  8.     else
  9.       if gsPopupType = "clip" then
  10.         set s to "Clip Art"
  11.       end if
  12.     end if
  13.   end if
  14.   set the text of cast "InstDirTitle" to "Bitte geben Sie ein Zielverzeichnis f├╝r " & s & "-Dateien an!"
  15.   set gsOldDir to goGBTools(mGetCurPath)
  16.   set the text of cast "Laufwerke" to EMPTY
  17.   repeat with i = 2 to 25
  18.     if goGBTools(mSetDrive, numToChar(charToNum("A") + i)) then
  19.       set the text of cast "Laufwerke" to the text of cast "Laufwerke" & numToChar(charToNum("A") + i) & ":" & RETURN
  20.       goGBTools(mChDir, "\")
  21.     end if
  22.   end repeat
  23.   goGBTools(mSetDrive, line 1 of field "Laufwerke")
  24.   ReadWindow()
  25.   set the puppet of sprite 41 to 0
  26.   set the puppet of sprite 42 to 0
  27. end
  28.