home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 November / Pcwk1197.iso / LOTUS / Eng-ins / ACROREAD / SUITE / DW09_S2.LSS < prev    next >
Text File  |  1996-07-09  |  1KB  |  28 lines
  1. ' Use an event to prompt the user for a title for the page
  2. ' whenever the user creates a page from this SMC page.
  3. ' You must attach this script to a page in an SMC 
  4. ' file, for it to be of use.
  5. ' The following script is attached to the Created event,
  6. ' which is executed each time a page is created. This script
  7. ' asks the user for a page title and puts it in the 
  8. ' Title placement block.
  9.  
  10.  
  11. Sub Created(Source As Page)
  12.     Dim Title As String
  13.     Dim MyText As DrawObject
  14. ' Use the LotusScript InputBox function to create a
  15. ' dialog box with a prompt for user input.
  16.     Title = Inputbox$ ("Please type a page title ", _
  17.     "Page Title")
  18. ' Create a text block that will hold the text 
  19. ' that the user types.
  20.     Set MyText = CurrentPage.CreateText
  21. ' Put the text that the user types into the text block.
  22.     MyText.Text = Title
  23. ' Move the text block into the "Click here..." block by
  24. ' using the PutIntoPlacementBlock method--this is 
  25. ' a method of the DrawObject class.
  26.     MyText.PutIntoPlacementBlock(1)
  27. End Sub
  28.