home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / propertyse.tcl < prev    next >
Text File  |  1997-10-14  |  4KB  |  169 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cayenne Software Inc.    1997
  4. #
  5. #      File:           @(#)propertyse.tcl    /main/titanic/9
  6. #      Author:         <generated>
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)propertyse.tcl    /main/titanic/9   14 Oct 1997 Copyright 1997 Cayenne Software Inc.
  10.  
  11. # Start user added include file section
  12. # End user added include file section
  13.  
  14. require_module_file "docsection.tcl" docwriter
  15.  
  16. Class PropertySection : {DocSection} {
  17.     method destructor
  18.     constructor
  19.     method edit
  20.     method show
  21.     method print
  22.     method preview
  23.     method uiName
  24.     method updateDocDir
  25.     method isDocDirUpToDate
  26.     method setpropKnowledgeDB
  27.     method removeSpecials
  28. }
  29.  
  30. method PropertySection::destructor {this} {
  31.     # Start destructor user section
  32.     # End destructor user section
  33.     $this DocSection::destructor
  34. }
  35.  
  36. constructor PropertySection {class this name document} {
  37.     set this [DocSection::constructor $class $this $name $document]
  38.     return $this
  39. }
  40.  
  41. method PropertySection::edit {this} {
  42.  
  43.     # default no edit possible
  44.     # redefine this function to be sure not the base edit is taken
  45.     wmtkerror "No edit possible for this section."
  46. }
  47.  
  48. method PropertySection::show {this} {
  49.  
  50.     set cmd [list \
  51.         "viewer PropertySection" \
  52.         [$this docLocation] \
  53.         [$this uiName] \
  54.     ]
  55.     $this execute "$cmd" m4
  56. }
  57.  
  58. method PropertySection::print {this} {
  59.  
  60.     set cmd [list \
  61.         "[m4_var get M4_a_printer] [$this docLocation]" \
  62.         [$this uiName] \
  63.     ]
  64.     $this execute "$cmd"
  65. }
  66.  
  67. method PropertySection::preview {this} {
  68.  
  69.     set cmd [list \
  70.         "previewer PropertySection" \
  71.         [$this docLocation] \
  72.         [$this uiName] \
  73.     ]
  74.     $this execute "$cmd" m4
  75. }
  76.  
  77. method PropertySection::uiName {this args} {
  78.  
  79.     return [$this name]
  80. }
  81.  
  82. method PropertySection::updateDocDir {this} {
  83.     
  84.     set filled 0
  85.     $this setpropKnowledgeDB
  86.  
  87.     set keyValues {}
  88.     set cv [[$this document] configVersion]
  89.     foreach property [$this referredProperties $cv] {
  90.         set keyValue "[$property name]"
  91.         lappend keyValue "[$property value]"
  92.         lappend keyValues $keyValue
  93.     }
  94.  
  95.     # put the properties in the file
  96.     set fid [open [$this docLocation] w]
  97.  
  98.     foreach property $keyValues {
  99.         set filled 1
  100.         set key "[lindex $property 0]"
  101.         set propDef [$this.propKnowledgeDB definition $key]
  102.         if {$propDef == ""} {
  103.             puts "'$key' not found in property database"
  104.             continue
  105.         }
  106.         set key [$propDef longName]
  107.         set value "[lindex $property 1]"
  108.         if [regexp \n $value] {
  109.             puts $fid "$key :"
  110.             puts $fid $value
  111.         } else {
  112.             puts $fid "$key : $value"
  113.         }
  114.     }
  115.  
  116.     # to keep some doc editors happy
  117.     if {$filled == 0} {
  118.         puts $fid " "
  119.     }
  120.  
  121.     close $fid
  122.     return 1
  123. }
  124.  
  125. method PropertySection::isDocDirUpToDate {this} {
  126.  
  127.     # do not update if document is frozen
  128.     if {"[[$this document] getInfo Status]" == "frozen"} {
  129.         return 1
  130.     }
  131.  
  132.     if {! [file exists [$this docLocation]]} {
  133.         return 0
  134.     }
  135.  
  136.     set cv [[$this document] configVersion]
  137.     set source [$this referredUpdateTime $cv]
  138.     file stat [$this docLocation] info
  139.     if {$source > $info(mtime)} {
  140.         return 0
  141.     }
  142.     return 1
  143. }
  144.  
  145. method PropertySection::setpropKnowledgeDB {this} {
  146.     if [isCommand $this.propKnowledgeDB] return
  147.  
  148.     PropKnowledgeDB new $this.propKnowledgeDB $globalModuleHandler
  149.  
  150.     # set the right context
  151.     set document [$this document]
  152.     set corpId [[$document corporate] identity]
  153.     set projId [[$document project] identity]
  154.     set configV [$document configVersion]
  155.     set configVId [$configV identity]
  156.     set phaseVId [[[$document phase] selectedVersion $configV] identity]
  157.     set systemVId [[$document documentedSystem] identity]
  158.  
  159.     $this.propKnowledgeDB context\
  160.          "/$corpId/$projId/$configVId/$phaseVId/$systemVId"
  161. }
  162.  
  163. method PropertySection::removeSpecials {this} {
  164.     BasicFS::removeFile [$this docLocation]
  165. }
  166.  
  167. # Do not delete this line -- regeneration end marker
  168.  
  169.