home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1997 September / Personal_Computer_World_Sep_97.iso / DXRS / SLIPCW09.DXR / 00004.ls < prev    next >
Encoding:
Text File  |  1997-06-27  |  7.6 KB  |  164 lines
  1. on exitFrame
  2.   global DriveLtr, SLIdatabaselist, SLIchosenprogramdetails, SLImainmenuhilitenumber, SLImainmenutextnumber, SLIsunmenuhilitenumber, SLImainmenubacknumber, SLIsubmenubacknumber, SLIsubmenuhilitenumber, SLIsubmenutextnumber, SLIactiveprogramlist, SLIBackArrowNumber, SLIForwardArrowNumber, SLIsubmenubackshadownumber, SLIActionButton, SLICopyButton, SLItextboxframe, SLIInfoTabRect, SLIProcTabRect, SLIExtraTabRect, SLIpicturebox, SLITextBoxContents, SLITextFilesLoaded, SLIplatformcheckbox, SLIRunButtonList, SLIInstallButtonList, SLIActionList, SLIFullTextOptionBox, SLITextLoadOptionRect, SLIFullTextTick, SLIPictureBoxNumber, SLIAddressBoxNumber, SLIProductBoxNumber, SLIPlatformCheck01, SLIPlatformCheck02, SLIPlatformCheck03, SLIPlatformCheck04, SLIInstallButtonTextBox, SLIRunButtonTextBox, SLICopyWIthInstallTextBox, SLICopyWIthRunTextBox, SLIExecuteTextBox
  3.   go(the frame)
  4.   if the mouseDown then
  5.     set whereismouse to point(the mouseH, the mouseV)
  6.     if inside(whereismouse, SLIInfoTabRect) = 1 then
  7.       set the member of sprite SLItextboxframe to member "infotab1"
  8.       set the member of sprite SLITextBoxContents to member "longtext"
  9.       repeat while the mouseDown
  10.       end repeat
  11.     end if
  12.     if inside(whereismouse, SLIProcTabRect) = 1 then
  13.       set the member of sprite SLItextboxframe to member "proctab1"
  14.       set the member of sprite SLITextBoxContents to member "processreqtext"
  15.       repeat while the mouseDown
  16.       end repeat
  17.     end if
  18.     if inside(whereismouse, SLIExtraTabRect) = 1 then
  19.       set the member of sprite SLItextboxframe to member "extrtab1"
  20.       set the member of sprite SLITextBoxContents to member "extrareqtext"
  21.       repeat while the mouseDown
  22.       end repeat
  23.     end if
  24.     if inside(whereismouse, SLITextLoadOptionRect) = 1 then
  25.       if SLITextFilesLoaded = 0 then
  26.         set SLITextFilesLoaded to 1
  27.         set the member of sprite SLIFullTextTick to member "Ticked"
  28.         set the loc of sprite SLIFullTextTick to point(135, 321)
  29.         updateStage()
  30.         repeat while the mouseDown
  31.         end repeat
  32.         gettextnow()
  33.       else
  34.         set SLITextFilesLoaded to 0
  35.         set the member of sprite SLIFullTextTick to member "SLIdot"
  36.         set the loc of sprite SLIFullTextTick to point(2000, 2000)
  37.         repeat while the mouseDown
  38.         end repeat
  39.       end if
  40.     end if
  41.     updateStage()
  42.   end if
  43.   if rollOver(SLImainmenutextnumber) then
  44.     rollovermainmenu()
  45.   else
  46.     if (getAt(SLIactiveprogramlist, 2) > 0) and (rollOver(SLImainmenutextnumber) = 0) then
  47.       set mainmenutop to the top of sprite SLImainmenubacknumber
  48.       set mainblackwidth to the rect of sprite SLImainmenubacknumber
  49.       set mainmenulineheight to the textHeight of member "mainmenu"
  50.       set the member of sprite SLImainmenuhilitenumber to member "hiliteshape"
  51.       set the width of sprite SLImainmenuhilitenumber to getAt(mainblackwidth, 3) - getAt(mainblackwidth, 1)
  52.       set the height of sprite SLImainmenuhilitenumber to mainmenulineheight
  53.       set mainhilitevloc to mainmenutop + (getAt(SLIactiveprogramlist, 2) * the textHeight of member "mainmenu") - the textHeight of member "mainmenu"
  54.       set the loc of sprite SLImainmenuhilitenumber to point(the left of sprite SLImainmenubacknumber, mainhilitevloc)
  55.       updateStage()
  56.     else
  57.       set the loc of sprite SLImainmenuhilitenumber to point(2000, 2000)
  58.     end if
  59.   end if
  60.   if rollOver(SLIForwardArrowNumber) then
  61.     set numberofsections to count(SLIdatabaselist)
  62.     set numberofprogramsinsection to count(getAt(SLIdatabaselist, getAt(SLIactiveprogramlist, 2)))
  63.     set numberofprogramsinlastsection to count(getAt(SLIdatabaselist, numberofsections))
  64.     if SLIactiveprogramlist = list(numberofprogramsinlastsection, numberofsections) then
  65.       nothing()
  66.     else
  67.       set the member of sprite SLIForwardArrowNumber to member "Ro_arrowright"
  68.       updateStage()
  69.       if the mouseDown then
  70.         set the member of sprite SLIForwardArrowNumber to member "Ri_arrowright"
  71.         updateStage()
  72.         if getAt(SLIactiveprogramlist, 1) < numberofprogramsinsection then
  73.           setAt(SLIactiveprogramlist, 1, getAt(SLIactiveprogramlist, 1) + 1)
  74.         else
  75.           if getAt(SLIactiveprogramlist, 2) < numberofsections then
  76.             setAt(SLIactiveprogramlist, 2, getAt(SLIactiveprogramlist, 2) + 1)
  77.             setAt(SLIactiveprogramlist, 1, 1)
  78.           end if
  79.         end if
  80.         repeat while the mouseDown
  81.         end repeat
  82.         set the member of sprite SLIForwardArrowNumber to member "Ro_arrowright"
  83.         updateStage()
  84.         set thismenutitle to string(getPropAt(SLIdatabaselist, getAt(SLIactiveprogramlist, 2)))
  85.         set chooseprogcommand to "set SLIchosenprogramdetails =  the prog" & getAt(SLIactiveprogramlist, 1) & " of the " & thismenutitle & " of SLIdatabaselist"
  86.         do(chooseprogcommand)
  87.         refreshprogramdetails()
  88.       end if
  89.     end if
  90.   else
  91.     set the member of sprite SLIForwardArrowNumber to member "bo_arrowright"
  92.     updateStage()
  93.   end if
  94.   if rollOver(SLIBackArrowNumber) then
  95.     if SLIactiveprogramlist = list(1, 1) then
  96.       nothing()
  97.     else
  98.       set the member of sprite SLIBackArrowNumber to member "Ro_arrowleft"
  99.       updateStage()
  100.       if the mouseDown then
  101.         set the member of sprite SLIBackArrowNumber to member "Ri_arrowleft"
  102.         updateStage()
  103.         set numberofsections to count(SLIdatabaselist)
  104.         set numberofprogramsinsection to count(getAt(SLIdatabaselist, getAt(SLIactiveprogramlist, 2)))
  105.         if getAt(SLIactiveprogramlist, 1) > 1 then
  106.           setAt(SLIactiveprogramlist, 1, getAt(SLIactiveprogramlist, 1) - 1)
  107.         else
  108.           if getAt(SLIactiveprogramlist, 2) > 1 then
  109.             setAt(SLIactiveprogramlist, 2, getAt(SLIactiveprogramlist, 2) - 1)
  110.             set numberofprogramsinprevioussection to count(getAt(SLIdatabaselist, getAt(SLIactiveprogramlist, 2)))
  111.             setAt(SLIactiveprogramlist, 1, numberofprogramsinprevioussection)
  112.           end if
  113.         end if
  114.         repeat while the mouseDown
  115.         end repeat
  116.         set the member of sprite SLIBackArrowNumber to member "Ro_arrowleft"
  117.         updateStage()
  118.         set thismenutitle to string(getPropAt(SLIdatabaselist, getAt(SLIactiveprogramlist, 2)))
  119.         set chooseprogcommand to "set SLIchosenprogramdetails =  the prog" & getAt(SLIactiveprogramlist, 1) & " of the " & thismenutitle & " of SLIdatabaselist"
  120.         do(chooseprogcommand)
  121.         refreshprogramdetails()
  122.       end if
  123.     end if
  124.   else
  125.     set the member of sprite SLIBackArrowNumber to member "Bo_arrowleft"
  126.     updateStage()
  127.   end if
  128.   if rollOver(SLIActionButton) then
  129.     set the member of sprite SLIActionButton to member getAt(SLIActionList, 2)
  130.     updateStage()
  131.     if rollOver(SLIActionButton) and the mouseDown then
  132.       set the member of sprite SLIActionButton to member getAt(SLIActionList, 3)
  133.       updateStage()
  134.       repeat while the mouseDown
  135.       end repeat
  136.       executeprogram()
  137.     else
  138.       set the member of sprite SLIActionButton to member getAt(SLIActionList, 2)
  139.       updateStage()
  140.     end if
  141.   else
  142.     set the member of sprite SLIActionButton to member getAt(SLIActionList, 1)
  143.   end if
  144.   if rollOver(SLICopyButton) then
  145.     set the member of sprite SLICopyButton to member "Ro_copy"
  146.     updateStage()
  147.     if rollOver(SLICopyButton) and the mouseDown then
  148.       set the member of sprite SLICopyButton to member "Ri_copy"
  149.       updateStage()
  150.       repeat while the mouseDown
  151.       end repeat
  152.       copyfiles()
  153.     else
  154.       set the member of sprite SLICopyButton to member "Ro_copy"
  155.       updateStage()
  156.     end if
  157.   else
  158.     set the member of sprite SLICopyButton to member "Bo_copy"
  159.     updateStage()
  160.   end if
  161.   ALLHelp()
  162.   ALLMenuReturn()
  163. end
  164.