home *** CD-ROM | disk | FTP | other *** search
- #---------------------------------------------------------------------------
- #
- # (c) Cayenne Software Inc. 1997
- #
- # File: @(#)mtgroup.tcl /main/titanic/3
- # Author: <generated>
- # Description:
- #---------------------------------------------------------------------------
- # SccsId = @(#)mtgroup.tcl /main/titanic/3 18 Nov 1997 Copyright 1997 Cayenne Software Inc.
-
- # Start user added include file section
- # End user added include file section
-
- require "mtversion.tcl"
-
- Class MTGroup : {MTVersion} {
- constructor
- method destructor
- method associations
- method level
- method getOwners
- }
-
- constructor MTGroup {class this name fromRepObj toRepObj} {
- set this [MTVersion::constructor $class $this $name $fromRepObj $toRepObj]
- # Start constructor user section
- $this selectFlag groupVersion
- $this copyCommand "SystemVersion::copy -groupVersion"
- # End constructor user section
- return $this
- }
-
- method MTGroup::destructor {this} {
- # Start destructor user section
- # End destructor user section
- $this MTVersion::destructor
- }
-
- method MTGroup::associations {this} {
- return {}
- }
-
- method MTGroup::level {this} {
- # return the customization level,
- return [[$this parent] level]
- }
-
- method MTGroup::getOwners {this} {
- set owners ""
- lappend owners [[$this fromRepObj] systemVersions]
- if {[$this toRepObj] != ""} {
- lappend owners [[$this toRepObj] systemVersions]
- } else {
- lappend owners {}
- }
- return $owners
- }
-
- # Do not delete this line -- regeneration end marker
-
-