home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / komix / DATA.Z / cbwmtarea.tcl < prev    next >
Text File  |  1996-08-29  |  3KB  |  115 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cadre Technologies Inc.    1996
  4. #
  5. #      File:           @(#)cbwmtarea.tcl    /main/hindenburg/1
  6. #      Author:         <generated>
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)cbwmtarea.tcl    /main/hindenburg/1   29 Aug 1996 Copyright 1996 Cadre Technologies Inc.
  10.  
  11. # Start user added include file section
  12. # End user added include file section
  13.  
  14.  
  15. Class CBWmtArea : {WmtArea} {
  16.     constructor
  17.     method destructor
  18.     method projectNm
  19.     method configurationNm
  20.     method phaseNm
  21.     method systemNm
  22.     method classNm
  23.     attribute classInfo
  24.     attribute systemInfo
  25.     attribute phaseInfo
  26.     attribute configurationInfo
  27.     attribute projectInfo
  28. }
  29.  
  30. constructor CBWmtArea {class this name} {
  31.     set this [WmtArea::constructor $class $this $name]
  32.     # Start constructor user section
  33.  
  34.     interface WaColumn $this.pcp {
  35.         WaEntry proj {
  36.             labelText "Project:"
  37.         }
  38.         WaEntry conf {
  39.             labelText "Configuration Version:"
  40.         }
  41.         WaEntry phase {
  42.             labelText "Phase:"
  43.         }
  44.     }
  45.     interface WaColumn $this.sc {
  46.         WaEntry sys {
  47.             labelText "System:"
  48.         }
  49.         WaEntry class {
  50.             labelText "Class:"
  51.         }
  52.     }
  53.  
  54.     foreach column [$this columnSet] {
  55.         foreach entry [$column entrySet] {
  56.         $entry labelFont \
  57.             [m4_var get M4_contextarea_labelfont -context classbrowser]
  58.         $entry valueFont \
  59.             [m4_var get M4_contextarea_valuefont -context classbrowser]
  60.         }
  61.     }
  62.  
  63.     $this projectInfo $this.pcp.proj
  64.     $this configurationInfo $this.pcp.conf
  65.     $this phaseInfo $this.pcp.phase
  66.     $this systemInfo $this.sc.sys
  67.     $this classInfo $this.sc.class
  68.  
  69.     # End constructor user section
  70.     return $this
  71. }
  72.  
  73. method CBWmtArea::destructor {this} {
  74.     # Start destructor user section
  75.     # End destructor user section
  76. }
  77.  
  78. method CBWmtArea::projectNm {this args} {
  79.     if {$args == ""} {
  80.         return [[$this projectInfo] valueText]
  81.     }
  82.     [$this projectInfo] valueText [lindex $args 0]
  83. }
  84.  
  85. method CBWmtArea::configurationNm {this args} {
  86.     if {$args == ""} {
  87.         return [[$this configurationInfo] valueText]
  88.     }
  89.     [$this configurationInfo] valueText [lindex $args 0]
  90. }
  91.  
  92. method CBWmtArea::phaseNm {this args} {
  93.     if {$args == ""} {
  94.         return [[$this phaseInfo] valueText]
  95.     }
  96.     [$this phaseInfo] valueText [lindex $args 0]
  97. }
  98.  
  99. method CBWmtArea::systemNm {this args} {
  100.     if {$args == ""} {
  101.         return [[$this systemInfo] valueText]
  102.     }
  103.     [$this systemInfo] valueText [lindex $args 0]
  104. }
  105.  
  106. method CBWmtArea::classNm {this args} {
  107.     if {$args == ""} {
  108.         return [[$this classInfo] valueText]
  109.     }
  110.     [$this classInfo] valueText [lindex $args 0]
  111. }
  112.  
  113. # Do not delete this line -- regeneration end marker
  114.  
  115.