home *** CD-ROM | disk | FTP | other *** search
- #---------------------------------------------------------------------------
- #
- # (c) Cayenne Software Inc. 1997
- #
- # File: @(#)corpdbobj.tcl /main/titanic/8
- # Author: <generated>
- # Description:
- #---------------------------------------------------------------------------
- # SccsId = @(#)corpdbobj.tcl /main/titanic/8 17 Oct 1997 Copyright 1997 Cayenne Software Inc.
-
- # Start user added include file section
- # End user added include file section
-
- require "browsdbobj.tcl"
-
- Class CorpDbObj : {BrowsDbObj Corporate} {
- method destructor
- constructor
- method promoter
- method addModel
- method addProject
- method addRole
- method addUser
- method corporateGroupVersions
- method removeObjects
- attribute corporateGroupVersionSet
- attribute roleSet
- attribute userSet
- attribute controlledClassSet
- attribute customFileSet
- }
-
- method CorpDbObj::destructor {this} {
- # Start destructor user section
- # End destructor user section
- $this BrowsDbObj::destructor
- }
-
- constructor CorpDbObj {class this name} {
- set this [Corporate::constructor $class $this $name]
- set this [BrowsDbObj::constructor $class $this $name]
- return $this
- }
-
- selfPromoter Corporate {this} {
- if {(! [isCommand Browser]) || (! [info exists wmttoolObj])} return
-
- CorpDbObj promote $this
- }
-
- method CorpDbObj::promoter {this} {
- $this BrowsDbObj::promoter
-
- # this is the corporate object of the browser
- $wmttoolObj corporateObj $this
-
- set customFileSet $this.${HCustFUiObj::uiClass}:0
- if {! [isCommand $customFileSet]} {
- HCustFUiObj new $customFileSet -parent $this
- }
- $this customFileSet $customFileSet
-
- module_promoter CorpDbObj $this
- }
-
- method CorpDbObj::addModel {this} {
- # Implemented in module groundworks
- }
-
- method CorpDbObj::addProject {this} {
- # Implemented in module objectteam
- }
-
- method CorpDbObj::addRole {this} {
- # Implemented in module security
- }
-
- method CorpDbObj::addUser {this} {
- # Implemented in module security
- }
-
- proc CorpDbObj::associations {} {
- return {customFileSet}
- }
-
- proc CorpDbObj::childTypes {assoc} {
- if {[lsearch -exact "[CorpDbObj::associations]" "$assoc"] == -1} {
- return ""
- }
- return "[BrowserProcs::childTypes $assoc]"
- }
-
- proc CorpDbObj::controlledLists {} {
- return {}
- }
-
- method CorpDbObj::corporateGroupVersions {this} {
- # Implemented in module corpmodeling
- }
-
- proc CorpDbObj::infoProperties {} {
- return [concat \
- [BrowserProcs::infoProperties] \
- {"DB Name" "DB Host" "DB Server" Release "Controlled Actions"} \
- ]
- }
-
- method CorpDbObj::removeObjects {this} {
- set box $wmttoolObj.removeWarning
- YesNoWarningDialog new $box \
- -title "Confirm Project Delete" \
- -message [BrowserProcs::removeMessage] \
- -noPressed {%this delete} \
- -yesPressed {
- set script ""
- foreach obj [$wmttoolObj selectedObjSet] {
- if {"$script" != ""} {
- append script " ;"
- }
- if [$obj isA User] {
- append script " [$wmttoolObj corporateObj] removeUser $obj"
- } else {
- append script " $obj destroy"
- }
- }
- $wmttoolObj startCommand tcl "$script" "" "" {1 0} 1
- %this delete
- }
- $box delCancelButton
- $box popUp
- }
-
- # Do not delete this line -- regeneration end marker
-
-