home *** CD-ROM | disk | FTP | other *** search
- #---------------------------------------------------------------------------
- #
- # (c) Cadre Technologies Inc. 1996
- #
- # File: @(#)browsdbobj.tcl /main/hindenburg/5
- # Author: <generated>
- # Description:
- #---------------------------------------------------------------------------
- # SccsId = @(#)browsdbobj.tcl /main/hindenburg/5 18 Sep 1996 Copyright 1996 Cadre Technologies Inc.
-
- # Start user added include file section
- require "classmaker.tcl"
- require "rulesuiobj.tcl"
- # End user added include file section
-
- require "browsuiobj.tcl"
-
- Class BrowsDbObj : {BrowsUiObj} {
- method destructor
- constructor
- method promoter
- method controlledActions2String
- method displayName
- method getInfo
- method initializeInfo
- method removeObject
- method uiClass
- method uiIdentity
- attribute controlledListSet
- attribute customFileVersionSet
- attribute accessRuleSet
- }
-
- method BrowsDbObj::destructor {this} {
- # Start destructor user section
-
- if [isCommand [$this accessRuleSet]] {
- [$this accessRuleSet] delete
- }
-
- # End destructor user section
- $this BrowsUiObj::destructor
- }
-
- constructor BrowsDbObj {class this name} {
- set this [BrowsUiObj::constructor $class $this $name]
- return $this
- }
-
- method BrowsDbObj::promoter {this} {
- $this BrowsUiObj::promoter
-
- set accessRuleSet $this.${RulesUiObj::uiClass}:0
- if {! [isCommand $accessRuleSet]} {
- RulesUiObj new $accessRuleSet -parent $this
- }
- $this accessRuleSet $accessRuleSet
- }
-
- method BrowsDbObj::controlledActions2String {this} {
- return [BrowserProcs::action2String [$this controlledActions]]
- }
-
- method BrowsDbObj::displayName {this} {
- return "[$this name]"
- }
-
- method BrowsDbObj::getInfo {this header} {
- set info [[$this info] set $header]
- if {"$info" != ""} {
- return $info
- }
-
- global browsDbObjInfoDict
- if {! [info exists browsDbObjInfoDict]} {
- set browsDbObjInfoDict [Dictionary new \
- -contents {
- Comments comments
- "Controlled Actions" controlledActions2String
- Created createTime2String
- "Created By" createdBy
- "DB Host" databaseHost
- "DB Name" databaseName
- "DB Server" databaseServer
- "Documented System" documentedSystemName
- Editor editorType
- Frozen freezeTime2String
- Identity identity
- "In Corporate" inCorporate2String
- Link linkStatus
- Name displayName
- Path pathName
- Phase phaseName
- Project projectName
- Release productRelease
- Scope scope2String
- Status status
- System systemName
- Text text
- Type browserType
- Updated updateTime2String
- Version versionName
- } \
- ]
- }
-
- if [catch {set info [$this [$browsDbObjInfoDict set $header]]}] {
- global errorInfo
- set errorInfo ""
- global errorCode
- set errorCode ""
- set info ""
- }
- $this setInfo $header $info
- return $info
- }
-
- method BrowsDbObj::initializeInfo {this arg} {
- [$this info] contents ""
- }
-
- method BrowsDbObj::removeObject {this object} {
- if [$object isA ConfigVersion] {
- set flag "-configVersion"
- } elseif [$object isA PhaseVersion] {
- set flag "-phaseVersion"
- } elseif [$object isA SystemVersion] {
- set flag "-systemVersion"
- if {[$object isA Document] &&
- "[$object getInfo Status]" != "backGround"} {
- $object removeDocDir
- }
- } elseif [$object isA ExternalLink] {
- set flag "-externalLink"
- } elseif [$object isA FileVersion] {
- set flag "-fileVersion"
- } elseif [$object isA GroupVersion] {
- set flag "-groupVersion"
- } elseif [$object isA PropertyReference] {
- set flag "-propRef"
- } elseif [$object isA SystemFileReference] {
- set flag "-reference"
- } else {
- set flag ""
- }
- eval $this remove $flag $object
- }
-
- method BrowsDbObj::uiClass {this} {
- return [$this ORB_class]
- }
-
- method BrowsDbObj::uiIdentity {this} {
- return [$this identity]
- }
-
- # Do not delete this line -- regeneration end marker
-
-