home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / komix / DATA.Z / t_description.tcl < prev    next >
Text File  |  1996-06-03  |  1KB  |  41 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #    (c) Cadre Technologies Inc. 1995
  4. #
  5. #    File:        %W%
  6. #    Author:        Challenger
  7. #    Description:    Implementation of old Report Writer table Description
  8. #
  9. #---------------------------------------------------------------------------
  10. # SccsId = %W%    %G%    Copyright 1995 Cadre Technologies Inc.
  11.  
  12.  
  13. constructor DescriptionRecord {class this configV phaseV systemV fileV
  14.                    workitem} {
  15.     set this [GCObject::constructor $class $this]
  16.  
  17.     $this project_version [$configV versionNumber]
  18.     $this phase_id [[$phaseV phase] identity]
  19.     $this system_id [[$systemV system] identity]
  20.  
  21.     if { $fileV != "" } {
  22.     $this file_id [[$fileV file] identity]
  23.     $this item_id 0
  24.     $this name ""
  25.     $this scope ""
  26.     $this item_type ""
  27.     $this desc_type "ftext"
  28.     } else {
  29.     $this file_id 0
  30.     $this item_id [$workitem identity]
  31.     $this name [[$workitem item] name]
  32.     $this scope [old2newscope [$workitem scope]]
  33.     $this item_type [[$workitem item] type]
  34.     $this desc_type "dtext"
  35.     }
  36.     $this desc_id 0
  37.     $this desc_path ""
  38.  
  39.     return $this
  40. }
  41.