home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1997 September / Personal_Computer_World_Sep_97.iso / DXRS / SLIPCW09.DXR / 00007_executeprogam.ls < prev    next >
Encoding:
Text File  |  1997-06-27  |  2.4 KB  |  42 lines
  1. on executeprogram
  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.   set textboxwaiting to 1
  4.   set the member of sprite SLIExecuteTextBox to member "ActionButtonTextBox"
  5.   set the loc of sprite SLIExecuteTextBox to point(270, 275)
  6.   updateStage()
  7.   repeat while textboxwaiting = 1
  8.     if rollOver(SLIExecuteTextBox) then
  9.       set mousewordnumber to the mouseWord
  10.       if mousewordnumber > 0 then
  11.         set currentword to word mousewordnumber of field "ActionButtonTextBox"
  12.         case currentword of
  13.           "continue":
  14.             set the foreColor of word mousewordnumber of field "ActionButtonTextBox" to 256
  15.             repeat while the mouseWord = mousewordnumber
  16.               if the mouseDown then
  17.                 set executable to DriveLtr & the RunFilePathname of SLIchosenprogramdetails
  18.                 open(executable)
  19.                 put executable
  20.                 set the loc of sprite SLIExecuteTextBox to point(2000, 2000)
  21.                 updateStage()
  22.                 set textboxwaiting to 0
  23.                 exit repeat
  24.               end if
  25.             end repeat
  26.           "cancel":
  27.             set the foreColor of word mousewordnumber of field "ActionButtonTextBox" to 256
  28.             repeat while the mouseWord = mousewordnumber
  29.               if the mouseDown then
  30.                 set the loc of sprite SLIExecuteTextBox to point(2000, 2000)
  31.                 updateStage()
  32.                 set textboxwaiting to 0
  33.                 exit repeat
  34.               end if
  35.             end repeat
  36.         end case
  37.         set the foreColor of word mousewordnumber of field "ActionButtonTextBox" to 0
  38.       end if
  39.     end if
  40.   end repeat
  41. end
  42.