home *** CD-ROM | disk | FTP | other *** search
/ PC go! 1996 July / Image.iso / mrmore / mrmore.dir / 00119.ls < prev    next >
Encoding:
Text File  |  1996-04-11  |  766 b   |  23 lines
  1. on exitFrame
  2.   global gbPopIsOn, gbInstallEinkauf, gnDeInsLine, gnDeInsCast, gbInstallActive, gsPopupReturn
  3.   CheckSound()
  4.   if gbInstallActive and not gbPopIsOn then
  5.     put gsPopupReturn
  6.     set gbInstallActive to 0
  7.     if gsPopupReturn = "Ja" then
  8.       set sDeinstall to line gnDeInsLine of the text of field gnDeInsCast
  9.       set sType to char 1 to 4 of the name of cast gnDeInsCast
  10.       DeInstallObject(sType, sDeinstall, goGBTools(mGetPrivateProfileString, sType & "ins", sDeinstall, "mrmore.ini"))
  11.       set s to the text of field gnDeInsCast
  12.       put EMPTY into line gnDeInsLine of s
  13.       set the text of cast gnDeInsCast to s
  14.     end if
  15.   end if
  16.   if not gbPopIsOn then
  17.     CheckRollOver()
  18.     CheckForTimeOut()
  19.   end if
  20.   cursor(0)
  21.   go(the frame)
  22. end
  23.