home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / mtwmtarea.tcl < prev    next >
Text File  |  1997-07-18  |  2KB  |  101 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cayenne Software Inc.    1997
  4. #
  5. #      File:           @(#)mtwmtarea.tcl    /main/titanic/1
  6. #      Author:         <generated>
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)mtwmtarea.tcl    /main/titanic/1   18 Jul 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 MTWmtArea : {WmtArea} {
  16.     constructor
  17.     method destructor
  18.     method update
  19.     attribute projectInfo
  20.     attribute phaseInfo
  21.     attribute systemInfo
  22.     attribute ccSubscriber
  23. }
  24.  
  25. constructor MTWmtArea {class this name} {
  26.     set this [WmtArea::constructor $class $this $name]
  27.     # Start constructor user section
  28.  
  29.     interface WaColumn $this.WC0 {
  30.         WaEntry projWE {
  31.             labelText "Project:"
  32.         }
  33.         WaEntry phasWE {
  34.             labelText "Phase:"
  35.         }
  36.     }
  37.     interface WaColumn $this.WC1 {
  38.         WaEntry systWE {
  39.             labelText "System:"
  40.         }
  41.         WaEntry objeWE {
  42.             labelText ""
  43.         }
  44.     }
  45.  
  46.     foreach column [$this columnSet] {
  47.         foreach entry [$column entrySet] {
  48.         $entry labelFont \
  49.             [m4_var get M4_contextarea_labelfont -context mt]
  50.         $entry valueFont \
  51.             [m4_var get M4_contextarea_valuefont -context mt]
  52.         }
  53.     }
  54.  
  55.     $this projectInfo $this.WC0.projWE
  56.     $this phaseInfo   $this.WC0.phasWE
  57.     $this systemInfo  $this.WC1.systWE
  58.  
  59.     set ccSub [ClContextSubscriber new -notify "$this update"]
  60.     [ClientContext::global] addSubscriber $ccSub
  61.     $this ccSubscriber $ccSub
  62.  
  63.     # End constructor user section
  64.     return $this
  65. }
  66.  
  67. method MTWmtArea::destructor {this} {
  68.     # Start destructor user section
  69.     # End destructor user section
  70. }
  71.  
  72. method MTWmtArea::update {this} {
  73.  
  74.     [$this projectInfo] valueText ""
  75.     [$this phaseInfo] valueText ""
  76.     [$this systemInfo] valueText ""
  77.  
  78.     set cc [ClientContext::global]
  79.     set project [$cc currentProject]
  80.     if [$project isNil] {
  81.         return
  82.     }
  83.     [$this projectInfo] valueText [$project name]
  84.  
  85.     set phaseV [$cc currentPhase]
  86.     if [$phaseV isNil] {
  87.         return
  88.     }
  89.     [$this phaseInfo] valueText [[$phaseV phase] name]
  90.  
  91.     set systemV [$cc currentSystem]
  92.     if [$systemV isNil] {
  93.         return
  94.     }
  95.     [$this systemInfo] valueText [[$systemV system] name]
  96.  
  97. }
  98.  
  99. # Do not delete this line -- regeneration end marker
  100.  
  101.