home *** CD-ROM | disk | FTP | other *** search
- #---------------------------------------------------------------------------
- #
- # (c) Westmount Technology 1994
- #
- # File: @(#)cadassocia.tcl 1.2
- # Author: <generated>
- # Description:
- #---------------------------------------------------------------------------
- # SccsId = @(#)cadassocia.tcl 1.2 28 Jul 1995 Copyright 1994 Westmount Technology
-
- # Start user added include file section
- # End user added include file section
-
-
- Class CADAssociation : {SMConnector} {
- constructor
- method destructor
- attribute loaded
- }
-
- constructor CADAssociation {class this inModel} {
- set this [SMConnector::constructor $class $this $inModel]
- $this loaded 0
- # Start constructor user section
- # End constructor user section
- return $this
- }
-
- method CADAssociation::destructor {this} {
- # Start destructor user section
- # End destructor user section
- }
-
- # Do not delete this line -- regeneration end marker
-
-