home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / komix / DATA.Z / htmldocsec.tcl < prev    next >
Text File  |  1996-12-05  |  2KB  |  71 lines
  1. #---------------------------------------------------------------------
  2. #
  3. #      (c)     Cayenne Software, Inc. 1996 
  4. #
  5. #      File:           htmldocsec.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/htmldocconge.tcl"
  13. my_require "/user/papr/icase/htmlsection.tcl"
  14.  
  15. Class HtmlDocSection : {HtmlSection} {
  16.     constructor
  17.     method destructor
  18.     method promoter
  19.     method generateTypeContents
  20.     method contentsGenerator
  21.     attribute _contentsGenerator
  22. }
  23.  
  24. constructor HtmlDocSection {class this name document} {
  25.     set this [HtmlSection::constructor $class $this $name $document]
  26.     # Start constructor user section
  27.     # End constructor user section
  28.     return $this
  29. }
  30.  
  31. method HtmlDocSection::destructor {this} {
  32.     set ref [$this _contentsGenerator]
  33.     if {$ref != ""} {
  34.         $ref _section ""
  35.     }
  36.     # Start destructor user section
  37.     # End destructor user section
  38.     $this HtmlSection::destructor
  39. }
  40.  
  41. method HtmlDocSection::promoter {this document} {
  42.     $this uiType Doc
  43.     $this extension html
  44.     $this HtmlSection::promoter $document
  45.     global classCount 
  46.     $this _contentsGenerator [HtmlDocConGen new HtmlDocConGen$classCount $this]
  47.     incr classCount
  48. }
  49.  
  50. method HtmlDocSection::generateTypeContents {this} {
  51.     
  52.     [$this contentsGenerator] generate
  53. }
  54.  
  55. # Do not delete this line -- regeneration end marker
  56.  
  57. method HtmlDocSection::contentsGenerator {this args} {
  58.     if {$args == ""} {
  59.         return [$this _contentsGenerator]
  60.     }
  61.     set ref [$this _contentsGenerator]
  62.     if {$ref != ""} {
  63.         $ref _section ""
  64.     }
  65.     set obj [lindex $args 0]
  66.     if {$obj != ""} {
  67.         $obj _section $this
  68.     }
  69.     $this _contentsGenerator $obj
  70. }
  71.