home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / wd97listco.tcl < prev    next >
Encoding:
Text File  |  1997-11-04  |  2.3 KB  |  88 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cayenne Software Inc.    1997
  4. #
  5. #      File:           @(#)wd97listco.tcl    /main/titanic/2
  6. #      Author:         <generated>
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)wd97listco.tcl    /main/titanic/2   4 Nov 1997 Copyright 1997 Cayenne Software Inc.
  10.  
  11. # Start user added include file section
  12. # End user added include file section
  13.  
  14.  
  15. Class Wd97ListConGen : {Object} {
  16.     method destructor
  17.     constructor
  18.     method generate
  19.     attribute section
  20. }
  21.  
  22. method Wd97ListConGen::destructor {this} {
  23.     # Start destructor user section
  24.     # End destructor user section
  25. }
  26.  
  27. constructor Wd97ListConGen {class this name section} {
  28.     set this [Object::constructor $class $this $name]
  29.     $this section $section
  30.     return $this
  31. }
  32.  
  33. method Wd97ListConGen::generate {this} {
  34.     set app [[[docTool document] editor] app]
  35.     set docs [$app property Documents]
  36.     set dest [[$this section] docLocation]
  37.     # open file
  38.     set d [$docs Open $dest]
  39.     # set in Master Document View
  40.     set activeWindow [$d property ActiveWindow]
  41.     set view [$activeWindow property View]
  42.     $view property Type 5
  43.     # expand sub documents
  44.     set subDocs [$d property SubDocuments]
  45.     $subDocs property Expanded 1.0
  46.     # delete current contents
  47.     set cnt [$d property Content]
  48.     $cnt Select
  49.     $cnt Delete
  50.  
  51.     set indentLevel [[$this section] indentation]
  52.     $cnt InsertAfter [[$this section] uiName]
  53.     $cnt property Style $OTStyles(OTHdg$indentLevel)
  54.     $cnt Collapse 0
  55.     $cnt InsertParagraphAfter
  56.     $cnt Collapse 0
  57.     $cnt property Style $OTStyles(OTBodyText)
  58.  
  59.     foreach file [[[[$this section] document] documentedSystem] localFileVersions] {
  60.         if {[[$file file] type] != "cad"} {
  61.             continue
  62.         }
  63.         set fileName [[$file file] name]
  64.         $cnt InsertAfter $fileName
  65.         $cnt InsertParagraphAfter
  66.  
  67.         foreach comp [$file components] {
  68.             if { [$comp type] == "cad_class" || \
  69.                 [$comp type] == "cad_container"} {
  70.                 foreach label [$comp labels] {
  71.                     set name ""
  72.                     if {[$label type] == "name"} {
  73.                         set name "    [$label value]"
  74.                     }
  75.                     if {$name != ""} {
  76.                         $cnt InsertAfter $name
  77.                         $cnt InsertParagraphAfter
  78.                     }
  79.                 }
  80.             }
  81.         }
  82.     }
  83.     $d Close -1
  84. }
  85.  
  86. # Do not delete this line -- regeneration end marker
  87.  
  88.