home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / komix / DATA.Z / fmdocsecti.tcl < prev    next >
Encoding:
Text File  |  1996-07-16  |  2.1 KB  |  83 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Westmount Technology    1994
  4. #
  5. #      File:           @(#)fmdocsecti.tcl    /main/hindenburg/1
  6. #      Author:         <generated>
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)fmdocsecti.tcl    /main/hindenburg/1   16 Jul 1996 Copyright 1994 Westmount Technology
  10.  
  11. # Start user added include file section
  12. require "fmdocconge.tcl"
  13. require "cadsection.tcl"
  14. require "ccdsection.tcl"
  15. require "dfdsection.tcl"
  16. require "etdsection.tcl"
  17. require "mgdsection.tcl"
  18. require "stdsection.tcl"
  19. require "ucdsection.tcl"
  20. # End user added include file section
  21.  
  22. require "fmsection.tcl"
  23.  
  24. Class FmDocSection : {FmSection} {
  25.     constructor
  26.     method destructor
  27.     method promoter
  28.     method generateTypeContents
  29.     method contentsGenerator
  30.     attribute _contentsGenerator
  31. }
  32.  
  33. constructor FmDocSection {class this name document} {
  34.     set this [FmSection::constructor $class $this $name $document]
  35.     # Start constructor user section
  36.     # End constructor user section
  37.     return $this
  38. }
  39.  
  40. method FmDocSection::destructor {this} {
  41.     set ref [$this _contentsGenerator]
  42.     if {$ref != ""} {
  43.         $ref _section ""
  44.     }
  45.     # Start destructor user section
  46.     # End destructor user section
  47.     $this FmSection::destructor
  48. }
  49.  
  50. method FmDocSection::promoter {this document} {
  51.     $this FmSection::promoter $document
  52.  
  53.     $this uiType Document
  54.     global classCount
  55.     $this _contentsGenerator [FmDocConGen new FmDocConGen$classCount $this]
  56.     incr classCount
  57.     set version [[[$this document] editor] version]
  58.     $this initContents fm${version}doc.con
  59. }
  60.  
  61. method FmDocSection::generateTypeContents {this} {
  62.  
  63.     [$this contentsGenerator] generate
  64. }
  65.  
  66. # Do not delete this line -- regeneration end marker
  67.  
  68. method FmDocSection::contentsGenerator {this args} {
  69.     if {$args == ""} {
  70.         return [$this _contentsGenerator]
  71.     }
  72.     set ref [$this _contentsGenerator]
  73.     if {$ref != ""} {
  74.         $ref _section ""
  75.     }
  76.     set obj [lindex $args 0]
  77.     if {$obj != ""} {
  78.         $obj _section $this
  79.     }
  80.     $this _contentsGenerator $obj
  81. }
  82.  
  83.