home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / komix / DATA.Z / t_compattr.tcl < prev    next >
Encoding:
Text File  |  1996-06-03  |  672 b   |  23 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #    (c) Cadre Technologies Inc. 1995
  4. #
  5. #    File:        %W%
  6. #    Author:        Challenger
  7. #    Description:    Implementation of old Report Writer table Comp_Attr
  8. #
  9. #---------------------------------------------------------------------------
  10. # SccsId = %W%    %G%    Copyright 1995 Cadre Technologies Inc.
  11.  
  12.  
  13. constructor CompattrRecord {class this component attribute value} {
  14.     set this [GCObject::constructor $class $this]
  15.  
  16.     $this component_id [$component identity] 
  17.     $this attribute [short2longname $attribute]
  18.     $this short_attribute $attribute
  19.     $this value $value
  20.  
  21.     return $this
  22. }
  23.