home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1997 September / Personal_Computer_World_Sep_97.iso / DXRS / SLIPCW09.DXR / 00003_keyscript.ls < prev    next >
Encoding:
Text File  |  1997-06-27  |  4.0 KB  |  61 lines
  1. on keyscript
  2.   if (the keyCode = 123) or (the keyCode = 124) then
  3.     if the keyCode = 123 then
  4.       keyback()
  5.     end if
  6.     if the keyCode = 124 then
  7.       keyforward()
  8.     end if
  9.   end if
  10. end
  11.  
  12. on keyforward
  13.   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
  14.   set numberofsections to count(SLIdatabaselist)
  15.   set numberofprogramsinsection to count(getAt(SLIdatabaselist, getAt(SLIactiveprogramlist, 2)))
  16.   set numberofprogramsinlastsection to count(getAt(SLIdatabaselist, numberofsections))
  17.   if SLIactiveprogramlist = list(numberofprogramsinlastsection, numberofsections) then
  18.     nothing()
  19.   else
  20.     if getAt(SLIactiveprogramlist, 1) < numberofprogramsinsection then
  21.       setAt(SLIactiveprogramlist, 1, getAt(SLIactiveprogramlist, 1) + 1)
  22.     else
  23.       if getAt(SLIactiveprogramlist, 2) < numberofsections then
  24.         setAt(SLIactiveprogramlist, 2, getAt(SLIactiveprogramlist, 2) + 1)
  25.         setAt(SLIactiveprogramlist, 1, 1)
  26.       end if
  27.     end if
  28.     repeat while the mouseDown
  29.     end repeat
  30.     set thismenutitle to string(getPropAt(SLIdatabaselist, getAt(SLIactiveprogramlist, 2)))
  31.     set chooseprogcommand to "set SLIchosenprogramdetails =  the prog" & getAt(SLIactiveprogramlist, 1) & " of the " & thismenutitle & " of SLIdatabaselist"
  32.     do(chooseprogcommand)
  33.     refreshprogramdetails()
  34.   end if
  35. end
  36.  
  37. on keyback
  38.   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
  39.   if SLIactiveprogramlist = list(1, 1) then
  40.     nothing()
  41.   else
  42.     set numberofsections to count(SLIdatabaselist)
  43.     set numberofprogramsinsection to count(getAt(SLIdatabaselist, getAt(SLIactiveprogramlist, 2)))
  44.     if getAt(SLIactiveprogramlist, 1) > 1 then
  45.       setAt(SLIactiveprogramlist, 1, getAt(SLIactiveprogramlist, 1) - 1)
  46.     else
  47.       if getAt(SLIactiveprogramlist, 2) > 1 then
  48.         setAt(SLIactiveprogramlist, 2, getAt(SLIactiveprogramlist, 2) - 1)
  49.         set numberofprogramsinprevioussection to count(getAt(SLIdatabaselist, getAt(SLIactiveprogramlist, 2)))
  50.         setAt(SLIactiveprogramlist, 1, numberofprogramsinprevioussection)
  51.       end if
  52.     end if
  53.     repeat while the mouseDown
  54.     end repeat
  55.     set thismenutitle to string(getPropAt(SLIdatabaselist, getAt(SLIactiveprogramlist, 2)))
  56.     set chooseprogcommand to "set SLIchosenprogramdetails =  the prog" & getAt(SLIactiveprogramlist, 1) & " of the " & thismenutitle & " of SLIdatabaselist"
  57.     do(chooseprogcommand)
  58.     refreshprogramdetails()
  59.   end if
  60. end
  61.