home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1997 September / Personal_Computer_World_Sep_97.iso / DXRS / SLIPCW09.DXR / 00016_gettextnow.ls < prev    next >
Encoding:
Text File  |  1997-06-27  |  1.6 KB  |  23 lines
  1. on gettextnow
  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 the loc of sprite SLITextBoxContents to point(2000, 2000)
  4.   updateStage()
  5.   set the boxType of member "longtext" to #scroll
  6.   set the rect of member "longtext" to rect(0, 0, 437, 11 * the textHeight of member "longtext")
  7.   set opentextfile to FileIO(mnew, "read", DriveLtr & the TextFile of SLIchosenprogramdetails)
  8.   put "opentextfile = " & opentextfile
  9.   set thisFile to opentextfile(mReadFile)
  10.   opentextfile(mdispose)
  11.   put thisFile into field "longtext"
  12.   tidyuptext("longtext")
  13.   set the rect of sprite SLITextBoxContents to the rect of member "longtext"
  14.   set the member of sprite SLITextBoxContents to member "longtext"
  15.   set the loc of sprite SLITextBoxContents to point(172, 249)
  16.   cursor(4)
  17.   updateStage()
  18.   cursor(0)
  19.   updateStage()
  20.   cursor(-1)
  21.   updateStage()
  22. end
  23.