home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / edwmtarea.tcl < prev    next >
Encoding:
Text File  |  1997-11-11  |  2.9 KB  |  130 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cadre Technologies Inc.    1996
  4. #
  5. #      File:           @(#)edwmtarea.tcl    /main/titanic/2
  6. #      Author:         <generated>
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)edwmtarea.tcl    /main/titanic/2   11 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 EdWmtArea : {WmtArea} {
  16.     constructor
  17.     method destructor
  18.     method project
  19.     method phase
  20.     method system
  21.     method diagram
  22.     method notify
  23.     attribute diagramInfo
  24.     attribute systemInfo
  25.     attribute phaseInfo
  26.     attribute projectInfo
  27.     attribute ccSubscriber
  28. }
  29.  
  30. constructor EdWmtArea {class this name} {
  31.     set this [WmtArea::constructor $class $this $name]
  32.     # Start constructor user section
  33.  
  34.     interface WaColumn $this.pp {
  35.         WaEntry proj {
  36.             labelText "Project:"
  37.         }
  38.         WaEntry phase {
  39.             labelText "Phase:"
  40.         }
  41.     }    
  42.     interface WaColumn $this.sd {
  43.         WaEntry sys {
  44.             labelText "System:"
  45.         }
  46.         WaEntry diag {
  47.             labelText "Diagram Version:"
  48.         }
  49.     }    
  50.  
  51.     foreach column [$this columnSet] {
  52.         foreach entry [$column entrySet] {
  53.         $entry labelFont \
  54.             [m4_var get M4_contextarea_labelfont -context ude]
  55.         $entry valueFont \
  56.             [m4_var get M4_contextarea_valuefont -context ude]
  57.         }
  58.     }
  59.  
  60.     $this projectInfo $this.pp.proj
  61.     $this phaseInfo $this.pp.phase
  62.     $this systemInfo $this.sd.sys
  63.     $this diagramInfo $this.sd.diag
  64.  
  65.     $this ccSubscriber [ClContextSubscriber new -notify "$this notify"]
  66.     [ClientContext::global] addSubscriber [$this ccSubscriber]
  67.  
  68.     # End constructor user section
  69.     return $this
  70. }
  71.  
  72. method EdWmtArea::destructor {this} {
  73.     # Start destructor user section
  74.     [ClientContext::global] removeSubscriber [$this ccSubscriber]
  75.     [$this ccSubscriber] delete
  76.     # End destructor user section
  77. }
  78.  
  79. method EdWmtArea::project {this nm} {
  80.     [$this projectInfo] valueText $nm
  81. }
  82.  
  83. method EdWmtArea::phase {this nm} {
  84.     [$this phaseInfo] valueText $nm
  85. }
  86.  
  87. method EdWmtArea::system {this nm} {
  88.     [$this systemInfo] valueText $nm
  89. }
  90.  
  91. method EdWmtArea::diagram {this nm} {
  92.     [$this diagramInfo] valueText $nm
  93. }
  94.  
  95. method EdWmtArea::notify {this} {
  96.     $this project ""
  97.     $this phase ""
  98.     $this system ""
  99.     $this diagram ""
  100.  
  101.     set cc [ClientContext::global]
  102.     set project [$cc currentProject]
  103.     if [$project isNil] {
  104.         return
  105.     }
  106.     $this project [$project name]
  107.  
  108.     set phaseV [$cc currentPhase]
  109.     if [$phaseV isNil] {
  110.         return
  111.     }
  112.     $this phase [[$phaseV phase] name]
  113.  
  114.     set systemV [$cc currentSystem]
  115.     if [$systemV isNil] {
  116.         return
  117.     }
  118.     $this system [[$systemV system] name]
  119.  
  120.     set fileV [$cc currentFile]
  121.     if [$fileV isNil] {
  122.         return
  123.     }
  124.     set fileQualName [[$fileV file] qualifiedName :]
  125.     $this diagram "$fileQualName (V [$fileV versionName])"
  126. }
  127.  
  128. # Do not delete this line -- regeneration end marker
  129.  
  130.