home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / docstructp.tcl < prev    next >
Text File  |  1996-05-29  |  2KB  |  59 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cadre Technologies Inc.    1996
  4. #
  5. #      File:           @(#)docstructp.tcl    1.6
  6. #      Author:         <generated>
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)docstructp.tcl    1.6   01 Feb 1996 Copyright 1996 Cadre Technologies Inc.
  10.  
  11. # Start user added include file section
  12. # End user added include file section
  13.  
  14.  
  15. Class DocStructPart : {Object} {
  16.     method destructor
  17.     constructor
  18.     attribute sectionName
  19.     attribute sectionType
  20.     attribute sectionClass
  21.     attribute levelDelta
  22.     attribute documentVersion
  23.     attribute structureGenerator
  24.     attribute contentsGenerator
  25.     attribute initContents
  26.     attribute fileVersion
  27.     attribute workItem
  28.     attribute propertyNames
  29. }
  30.  
  31. method DocStructPart::destructor {this} {
  32.     # Start destructor user section
  33.     # End destructor user section
  34. }
  35.  
  36. constructor DocStructPart {class this spec} {
  37.  
  38.     set name [lindex $spec 0]
  39.     regsub -all " |\t" $name "" name
  40.     set this [Object::constructor $class $this $name]
  41.  
  42.     $this sectionName        [lindex $spec 0]
  43.     $this levelDelta        [lindex $spec 1]
  44.     $this sectionType        [lindex $spec 3]
  45.     $this structureGenerator    [lindex $spec 2]
  46.     $this contentsGenerator        [lindex $spec 4]
  47.     $this initContents        [lindex $spec 5]
  48.     $this fileVersion        [lindex $spec 6]
  49.     $this workItem            [lindex $spec 7]
  50.     $this propertyNames        [lindex $spec 8]
  51.     $this sectionClass        [lindex $spec 9]
  52.     $this documentVersion        [lindex $spec 10]
  53.  
  54.     return $this
  55. }
  56.  
  57. # Do not delete this line -- regeneration end marker
  58.  
  59.