home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 November / Pcwk1197.iso / LOTUS / Eng-ins / SAMPLES / SUITE / DW09_S5.LSS < prev    next >
Encoding:
Text File  |  1996-07-09  |  2.6 KB  |  74 lines
  1. ' This script fills a bulleted list with predefined text. 
  2. ' It consists of three subs: SetAgenda (the primary
  3. ' sub), SampleAgendaPlan, and Main. The sub Main is used
  4. ' so that this script can be attached to an icon
  5. ' as well as an event. 
  6. ' The code for all three subs follows one after the other.
  7.  
  8. ' Declare globals
  9. ' Declare a constant containing the text that will be 
  10. ' used to fill the bulleted list.  The text contains the 
  11. ' markup sequence <= for carriage return.
  12.  
  13. Const SampleAgendaTxt = "First bullet<=" + _
  14. "Second bullet<=Third bullet<=Fourth " + _
  15. "bullet<=Fifth bullet"
  16.  
  17.  
  18.  
  19. ' The following sub, SetAgenda, is scripted with the
  20. ' assumption that there is only one placement block
  21. ' on the page and that it will be turned into a 
  22. ' text block.
  23. Private Sub SetAgenda(TextToInsert As String)
  24.     Dim AgendaTxtBlk As DrawObject
  25.     Dim DummyTextBlk As DrawObject
  26. ' Using a ForAll and an If statement, search the
  27. ' current page for a placement block.
  28.     Forall Objs In CurrentPage.Objects
  29.         If (Objs.IsPlacementBlock) Then
  30.    ' The variable, AgendaTxtBlk, is set to be
  31.    ' the instance of the PlacementBlock class 
  32.    ' found on the current page.
  33.             Set AgendaTxtBlk = Objs
  34.         End If
  35.     End Forall
  36. ' Create a temporary text block
  37.     Set DummyTextBlk = _
  38.     CurrentPage.CreateText(1000,1000,1000,1000)
  39. ' Enter text in the temporary text block using 
  40. ' the Text property of the TextBlock class.  TextBlock is
  41. ' also a property of the DrawObject class.  It is 
  42. ' simpler to move a text block into a placement
  43. ' block than it is to move a string of text into a 
  44. ' placement block, so this script uses this method of
  45. ' manipulating text.
  46.     DummyTextBlk.TextBlock.Text = "temp"
  47. ' Put the temporary text into the placement block using
  48. ' the Insert method of the PlacementBlock class.
  49.     AgendaTxtBlk.Insert  DummyTextBlk
  50.     Forall Object In CurrentPage.Objects
  51.       ' Check each text string t to see which is the 
  52.       ' one with the text "temp" in it. When you find it,
  53.       ' put the text you want to insert into it.
  54.         If (Object.TextBlock.Text = "temp") Then
  55.             Object.TextBlock.Text = TextToInsert
  56.             Object.TextBlock.BulletProperties.Style = $ltsBulletLargeDot
  57.             Exit Forall
  58.         End If
  59.     End Forall
  60. End Sub
  61. ' This sub, SampleAgendaPlan, calls the sub SetAgenda
  62. ' with the text constant, SampleAgendaTxt.
  63. Sub SampleAgendaPlan()
  64.     SetAgenda(SampleAgendaTxt)
  65. End Sub
  66. ' This sub, Main, calls SampleAgendaPlan. When you use
  67. ' sub Main, the sub is generically available
  68. ' in Freelance Graphics, so that you
  69. ' can run the sub even when it is not attached to an
  70. ' event. It can, for example, be attached to an icon.
  71. Sub Main
  72.     SampleAgendaPlan
  73. End Sub
  74.