home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / komix / DATA.Z / htmltitlec.tcl < prev    next >
Encoding:
Text File  |  1996-12-05  |  1.5 KB  |  63 lines
  1. #---------------------------------------------------------------------
  2. #
  3. #      (c)     Cayenne Software, Inc. 1996 
  4. #
  5. #      File:           htmltitlec.tcl
  6. #      Description:    see Document Generation Guide     
  7. #---------------------------------------------------------------------
  8.  
  9. set user_dir /user/papr/icase
  10. # Change this variable setting
  11.  
  12. my_require "$user_dir/htmlcongen.tcl"
  13.  
  14. Class HtmlTitleConGen : {HtmlConGen} {
  15.     constructor
  16.     method destructor
  17.     method generate
  18. }
  19.  
  20. constructor HtmlTitleConGen {class this name section} {
  21.     set this [HtmlConGen::constructor $class $this $name $section]
  22.     # Start constructor user section
  23.  
  24.     # this is not a type-tied generator, so adjust the type
  25.     # part of the template name
  26.  
  27.     $this templatePath $user_dir/htmltitle.asc
  28.  
  29.     # End constructor user section
  30.     return $this
  31. }
  32.  
  33. method HtmlTitleConGen::destructor {this} {
  34.     # Start destructor user section
  35.     # End destructor user section
  36.     $this HtmlConGen::destructor
  37. }
  38.  
  39. method HtmlTitleConGen::generate {this} {
  40.  
  41.     set titleFid [$this openAsc]
  42.  
  43.     if {$titleFid == ""} {
  44.         return
  45.     }
  46.  
  47.     # set department name here for the title page
  48.     set departmentName "<Department Name>"
  49.  
  50.     # set title
  51.     set documentTitle "[[[$this section] document] title]"
  52.  
  53.     #expand initial contents file
  54.     set contents [TextSection new]
  55.     expand_file $contents [$this templatePath] 
  56.  
  57.     $contents write $titleFid
  58.     close $titleFid
  59. }
  60.  
  61. # Do not delete this line -- regeneration end marker
  62.  
  63.