home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / wordlistco.tcl < prev    next >
Text File  |  1997-11-04  |  2KB  |  75 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cadre Technologies Inc.    1996
  4. #
  5. #      File:           @(#)wordlistco.tcl    /main/titanic/6
  6. #      Author:         <generated>
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)wordlistco.tcl    /main/titanic/6   4 Nov 1997 Copyright 1996 Cadre Technologies Inc.
  10.  
  11. # Start user added include file section
  12. # End user added include file section
  13.  
  14.  
  15. Class WordListConGen : {Object} {
  16.     method destructor
  17.     constructor
  18.     method generate
  19.     attribute section
  20. }
  21.  
  22. method WordListConGen::destructor {this} {
  23.     # Start destructor user section
  24.     # End destructor user section
  25. }
  26.  
  27. constructor WordListConGen {class this name section} {
  28.     set this [Object::constructor $class $this $name]
  29.     $this section $section
  30.     return $this
  31. }
  32.  
  33. method WordListConGen::generate {this} {
  34.     set w [[[docTool document] editor] wordObj]
  35.     set dest [[$this section] docLocation]
  36.     $w FileOpen $dest
  37.     $w EditSelectAll
  38.     $w EditClear
  39.     set indentLevel [[$this section] indentation]
  40.     $w chkInsert [[$this section] uiName]
  41.     $w FormatStyle $OTStyles(OTHdg$indentLevel)
  42.     $w InsertPara
  43.     $w FormatStyle $OTStyles(OTBodyText)
  44.  
  45.  
  46.     foreach file [[[[$this section] document] documentedSystem] localFileVersions] {
  47.         if {[[$file file] type] != "cad"} {
  48.             continue
  49.         }
  50.         set fileName [[$file file] name]
  51.         $w chkInsert $fileName
  52.         $w InsertPara
  53.  
  54.         foreach comp [$file components] {
  55.             if { [$comp type] == "cad_class" || \
  56.                 [$comp type] == "cad_container"} {
  57.                 foreach label [$comp labels] {
  58.                     set name ""
  59.                     if {[$label type] == "name"} {
  60.                         set name "    [$label value]"
  61.                     }
  62.                     if {$name != ""} {
  63.                         $w chkInsert $name
  64.                         $w InsertPara
  65.                     }
  66.                 }
  67.             }
  68.         }
  69.     }
  70.     $w FileSaveAs
  71. }
  72.  
  73. # Do not delete this line -- regeneration end marker
  74.  
  75.