home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / custedwmta.tcl < prev    next >
Text File  |  1996-09-12  |  3KB  |  117 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cadre Technologies Inc.    1996
  4. #
  5. #      File:           @(#)custedwmta.tcl    /main/titanic/1
  6. #      Author:         <generated>
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)custedwmta.tcl    /main/titanic/1   12 Sep 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 CustEdWmtArea : {WmtArea} {
  16.     constructor
  17.     method destructor
  18.     method project
  19.     method configuration
  20.     method phase
  21.     method system
  22.     method file
  23.     method filter
  24.     attribute filterInfo
  25.     attribute fileInfo
  26.     attribute systemInfo
  27.     attribute phaseInfo
  28.     attribute configurationInfo
  29.     attribute projectInfo
  30. }
  31.  
  32. constructor CustEdWmtArea {class this name} {
  33.     set this [WmtArea::constructor $class $this $name]
  34.     # Start constructor user section
  35.  
  36.     interface WaColumn $this.pp {
  37.         WaEntry proj {
  38.             labelText "Project:"
  39.         }
  40.         WaEntry conf {
  41.             labelText "Configuration Version:"
  42.         }
  43.         WaEntry file {
  44.             labelText "File (Version):"
  45.         }
  46.     }    
  47.     interface WaColumn $this.sd {
  48.         WaEntry phase {
  49.             labelText "Phase:"
  50.         }
  51.         WaEntry sys {
  52.             labelText "System:"
  53.         }
  54.         WaEntry filter {
  55.             labelText "Filter:"
  56.             valueText "Off"
  57.         }
  58.     }    
  59.  
  60.     foreach column [$this columnSet] {
  61.         foreach entry [$column entrySet] {
  62.         $entry labelFont \
  63.             [m4_var get M4_contextarea_labelfont -context uce]
  64.         $entry valueFont \
  65.             [m4_var get M4_contextarea_valuefont -context uce]
  66.         }
  67.     }
  68.  
  69.     $this projectInfo $this.pp.proj
  70.     $this configurationInfo $this.pp.conf
  71.     $this fileInfo $this.pp.file
  72.     $this phaseInfo $this.sd.phase
  73.     $this systemInfo $this.sd.sys
  74.     $this filterInfo $this.sd.filter
  75.  
  76.     # End constructor user section
  77.     return $this
  78. }
  79.  
  80. method CustEdWmtArea::destructor {this} {
  81.     # Start destructor user section
  82.     # End destructor user section
  83. }
  84.  
  85. method CustEdWmtArea::project {this name} {
  86.     
  87.     [$this projectInfo] valueText $name
  88. }
  89.  
  90. method CustEdWmtArea::configuration {this name} {
  91.     
  92.     [$this configurationInfo] valueText $name
  93. }
  94.  
  95. method CustEdWmtArea::phase {this name} {
  96.     
  97.     [$this phaseInfo] valueText $name
  98. }
  99.  
  100. method CustEdWmtArea::system {this name} {
  101.     
  102.     [$this systemInfo] valueText $name
  103. }
  104.  
  105. method CustEdWmtArea::file {this name} {
  106.     
  107.     [$this fileInfo] valueText $name
  108. }
  109.  
  110. method CustEdWmtArea::filter {this name} {
  111.     
  112.     [$this filterInfo] valueText $name
  113. }
  114.  
  115. # Do not delete this line -- regeneration end marker
  116.  
  117.