home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1997 September / Personal_Computer_World_Sep_97.iso / DXRS / SLIPCW09.DXR / 00011_installmenuitems.ls < prev    next >
Encoding:
Text File  |  1997-06-27  |  4.2 KB  |  59 lines
  1. on installmenuitems
  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.   put EMPTY into field "mainmenu"
  4.   set the rect of member "mainmenu" to rect(0, 0, 130, 235)
  5.   set the boxType of member "mainmenu" to #fixed
  6.   set the textAlign of member "mainmenu" to "left"
  7.   set the textSize of member "mainmenu" to 12
  8.   set the textHeight of member "mainmenu" to 20
  9.   set the member of sprite SLImainmenutextnumber to member "mainmenu"
  10.   set the ink of sprite SLImainmenutextnumber to 36
  11.   set the loc of sprite SLImainmenutextnumber to point(the locH of sprite SLImainmenubacknumber + 5, the locV of sprite SLImainmenubacknumber)
  12.   set the loc of sprite SLImainmenutextnumber to point(2000, 2000)
  13.   set mainmenuitems to list()
  14.   set numberprogs to 0
  15.   repeat with i = 1 to count(SLIdatabaselist)
  16.     put string(getPropAt(SLIdatabaselist, i)) after field "mainmenu"
  17.     if i < count(SLIdatabaselist) then
  18.       put RETURN after field "mainmenu"
  19.     end if
  20.     set text1 to "set numberprogs = count(the " & string(getPropAt(SLIdatabaselist, i)) & " of SLIdatabaselist)"
  21.     do(text1)
  22.     copyToClipBoard(member "secondarymenutemplate")
  23.     pasteClipBoardInto(member (the number of castMembers + 1))
  24.     set the name of member the number of castMembers to string(getPropAt(SLIdatabaselist, i))
  25.     put EMPTY into field the number of castMembers
  26.     repeat with j = 1 to numberprogs
  27.       set realname to EMPTY
  28.       set briefdesc to EMPTY
  29.       set text2 to "set realname = the realname of the prog" & j & " of the " & string(getPropAt(SLIdatabaselist, i)) & " of SLIdatabaselist"
  30.       do(text2)
  31.       set text3 to "set briefdesc = the briefdescription of the prog" & j & " of the " & string(getPropAt(SLIdatabaselist, i)) & " of SLIdatabaselist"
  32.       do(text3)
  33.       set linelength to 75
  34.       if (the number of chars in realname + the number of chars in briefdesc) > linelength then
  35.         set briefdesc to char 1 to the number of chars in briefdesc - (the number of chars in briefdesc - (linelength - the number of chars in realname)) of briefdesc
  36.       end if
  37.       put realname & " - " & briefdesc after field the number of castMembers
  38.       if j < numberprogs then
  39.         put RETURN after field the number of castMembers
  40.       end if
  41.       set the foreColor of member the number of castMembers to 256
  42.       set the textFont of member the number of castMembers to "arial"
  43.       set the textSize of member the number of castMembers to 12
  44.       set the textHeight of member the number of castMembers to 20
  45.       set the rect of member the number of castMembers to rect(0, 0, 450, the number of lines in field the name of member the number of castMembers * the textHeight of member the number of castMembers)
  46.     end repeat
  47.     set the foreColor of member "mainmenu" to 256
  48.     set the textFont of member "mainmenu" to "arial"
  49.     set the textSize of member "mainmenu" to 12
  50.     set the textHeight of member "mainmenu" to 20
  51.     set the rect of member "mainmenu" to rect(0, 0, 145, the number of lines in field "mainmenu" * the textHeight of member "mainmenu")
  52.   end repeat
  53.   set the rect of sprite SLImainmenubacknumber to rect(0, 82, 157, 222)
  54.   set the loc of sprite SLImainmenubacknumber to point(0, 82)
  55.   set the loc of sprite SLImainmenutextnumber to point(the locH of sprite SLImainmenubacknumber + 5, the locV of sprite SLImainmenubacknumber)
  56.   put "(the loc of sprite SLImainmenutextnumber)  = " & the loc of sprite SLImainmenutextnumber
  57.   put "SLImainmenutextnumber = " & SLImainmenutextnumber
  58. end
  59.