Personal Computer World 1997 September/Personal_Computer_World_Sep_97.iso/DXRS/SLIPCW09.DXR/00008_copyfiles.ls

Text File | 1997-06-27 | 2.4 KB | 41 lines

on copyfiles
  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
  set textboxwaiting to 1
  set the member of sprite SLIExecuteTextBox to member "CopyButtonTextBox"
  set the loc of sprite SLIExecuteTextBox to point(270, 275)
  updateStage()
  repeat while textboxwaiting = 1
    if rollOver(SLIExecuteTextBox) then
      set mousewordnumber to the mouseWord
      if mousewordnumber > 0 then
        set currentword to word mousewordnumber of field "CopyButtonTextBox"
        case currentword of
          "continue":
            set the foreColor of word mousewordnumber of field "CopyButtonTextBox" to 256
            repeat while the mouseWord = mousewordnumber
              if the mouseDown then
                set folder to DriveLtr & the RunFilePathname of SLIchosenprogramdetails
                open(folder, DriveLtr & "dxrs\copysl.exe")
                set the loc of sprite SLIExecuteTextBox to point(2000, 2000)
                updateStage()
                set textboxwaiting to 0
                exit repeat
              end if
            end repeat
          "cancel":
            set the foreColor of word mousewordnumber of field "CopyButtonTextBox" to 256
            repeat while the mouseWord = mousewordnumber
              if the mouseDown then
                set the loc of sprite SLIExecuteTextBox to point(2000, 2000)
                updateStage()
                set textboxwaiting to 0
                exit repeat
              end if
            end repeat
        end case
        set the foreColor of word mousewordnumber of field "CopyButtonTextBox" to 0
      end if
    end if
  end repeat
end