home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / komix / DATA.Z / t_phase.tcl < prev    next >
Text File  |  1996-06-03  |  1KB  |  31 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #    (c) Cadre Technologies Inc. 1995
  4. #
  5. #    File:        %W%
  6. #    Author:        Challenger
  7. #    Description:    Implementation of old Report Writer table Phase
  8. #
  9. #---------------------------------------------------------------------------
  10. # SccsId = %W%    %G%    Copyright 1995 Cadre Technologies Inc.
  11.  
  12.  
  13. constructor PhaseRecord {class this configVersion phaseVersion} {
  14.     set this [GCObject::constructor $class $this]
  15.  
  16.     set phase [$phaseVersion phase]
  17.  
  18.     $this project_version [$configVersion versionNumber]
  19.     $this phase_id [$phase identity]
  20.     $this phase_version [$phaseVersion versionNumber]
  21.     $this name [$phase name]
  22.     $this workbench [$phase name]
  23.     $this working [expr {[$phaseVersion status] == "working"}]
  24.     $this status [expr { [$phaseVersion status] == "working"
  25.     ? "Unfrozen" : "Frozen" }]
  26.     $this frz_time [fmtclock [$phaseVersion freezeTime] "%e-%h-%Y %X"]
  27.     $this comment [$phaseVersion comments]
  28.  
  29.     return $this
  30. }
  31.