home *** CD-ROM | disk | FTP | other *** search
- #---------------------------------------------------------------------------
- #
- # (c) Cayenne Software Inc. 1997
- #
- # File: @(#)vbwmtarea.tcl /main/titanic/2
- # Author: <generated>
- # Description:
- #---------------------------------------------------------------------------
- # SccsId = @(#)vbwmtarea.tcl /main/titanic/2 7 Aug 1997 Copyright 1997 Cayenne Software Inc.
-
- # Start user added include file section
- # End user added include file section
-
-
- Class VBWmtArea : {WmtArea} {
- constructor
- method destructor
- method update
- attribute projectInfo
- attribute configInfo
- attribute phaseInfo
- attribute systemInfo
- attribute ccSubscriber
- }
-
- constructor VBWmtArea {class this name} {
- set this [WmtArea::constructor $class $this $name]
- # Start constructor user section
- interface WaColumn $this.WC0 {
- WaEntry projWE {
- labelText "Project:"
- }
- WaEntry confWE {
- labelText "Configuration Version:"
- }
- }
- interface WaColumn $this.WC1 {
- WaEntry phasWE {
- labelText "Phase:"
- }
- WaEntry systWE {
- labelText "System:"
- }
- }
-
- foreach column [$this columnSet] {
- foreach entry [$column entrySet] {
- $entry labelFont \
- [m4_var get M4_contextarea_labelfont -context vb]
- $entry valueFont \
- [m4_var get M4_contextarea_valuefont -context vb]
- }
- }
-
- $this projectInfo $this.WC0.projWE
- $this configInfo $this.WC0.confWE
- $this phaseInfo $this.WC1.phasWE
- $this systemInfo $this.WC1.systWE
-
- set ccSub [ClContextSubscriber new -notify "$this update"]
- [ClientContext::global] addSubscriber $ccSub
- $this ccSubscriber $ccSub
-
- # End constructor user section
- return $this
- }
-
- method VBWmtArea::destructor {this} {
- # Start destructor user section
- [ClientContext::global] removeSubscriber [$this ccSubscriber]
- [$this ccSubscriber] delete
- # End destructor user section
- }
-
- method VBWmtArea::update {this} {
-
- [$this projectInfo] valueText ""
- [$this configInfo] valueText ""
- [$this phaseInfo] valueText ""
- [$this systemInfo] valueText ""
-
- set objV [.main currentVersion]
- if {$objV == "" || [$objV isNil]} {
- return
- }
-
- set cc [ClientContext::global]
- set project [$cc currentProject]
- if [$project isNil] {
- return
- }
- [$this projectInfo] valueText [$project name]
-
- set configV [$cc currentConfig]
- if [$configV isNil] {
- return
- }
-
- set configName "[[$configV ConfigVersion::config] name]"
- set configName "$configName (V[$configV versionNumber])"
- [$this configInfo] valueText $configName
-
- set phaseV [$cc currentPhase]
- if [$phaseV isNil] {
- return
- }
- [$this phaseInfo] valueText [[$phaseV phase] name]
-
- set systemV [$cc currentSystem]
- if [$systemV isNil] {
- return
- }
- [$this systemInfo] valueText [[$systemV system] name]
-
- }
-
- # Do not delete this line -- regeneration end marker
-
-