home *** CD-ROM | disk | FTP | other *** search
- #---------------------------------------------------------------------------
- #
- # (c) Cayenne Software Inc. 1997
- #
- # File: @(#)gdritemsel.tcl /main/titanic/1
- # Author: <generated>
- # Description:
- #---------------------------------------------------------------------------
- # SccsId = @(#)gdritemsel.tcl /main/titanic/1 16 Apr 1997 Copyright 1997 Cayenne Software Inc.
-
- # Start user added include file section
- # End user added include file section
-
-
- Class GDRItemSelector : {GCObject} {
- constructor
- method destructor
- method isNil
- method file
- attribute fileType
- attribute itemType
- attribute qualified
- attribute _file
- }
-
- constructor GDRItemSelector {class this i_fileType i_itemType i_qualified file} {
- set this [GCObject::constructor $class $this]
- $this fileType $i_fileType
- $this itemType $i_itemType
- $this qualified $i_qualified
- $this _file $file
- [$file _itemSelectorSet] append $this
- # Start constructor user section
- # End constructor user section
- return $this
- }
-
- method GDRItemSelector::destructor {this} {
- # Start destructor user section
- # End destructor user section
- }
-
- method GDRItemSelector::isNil {this} {
- return 0
- }
-
- # Do not delete this line -- regeneration end marker
-
- method GDRItemSelector::file {this args} {
- if {$args == ""} {
- return [$this _file]
- }
- set ref [$this _file]
- if {$ref != ""} {
- [$ref _itemSelectorSet] removeValue $this
- }
- set obj [lindex $args 0]
- if {$obj != ""} {
- [$obj _itemSelectorSet] append $this
- }
- $this _file $obj
- }
-
-