home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / corpdbobj.tcl < prev    next >
Text File  |  1997-10-17  |  3KB  |  135 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cayenne Software Inc.    1997
  4. #
  5. #      File:           @(#)corpdbobj.tcl    /main/titanic/8
  6. #      Author:         <generated>
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)corpdbobj.tcl    /main/titanic/8   17 Oct 1997 Copyright 1997 Cayenne Software Inc.
  10.  
  11. # Start user added include file section
  12. # End user added include file section
  13.  
  14. require "browsdbobj.tcl"
  15.  
  16. Class CorpDbObj : {BrowsDbObj Corporate} {
  17.     method destructor
  18.     constructor
  19.     method promoter
  20.     method addModel
  21.     method addProject
  22.     method addRole
  23.     method addUser
  24.     method corporateGroupVersions
  25.     method removeObjects
  26.     attribute corporateGroupVersionSet
  27.     attribute roleSet
  28.     attribute userSet
  29.     attribute controlledClassSet
  30.     attribute customFileSet
  31. }
  32.  
  33. method CorpDbObj::destructor {this} {
  34.     # Start destructor user section
  35.     # End destructor user section
  36.     $this BrowsDbObj::destructor
  37. }
  38.  
  39. constructor CorpDbObj {class this name} {
  40.     set this [Corporate::constructor $class $this $name]
  41.     set this [BrowsDbObj::constructor $class $this $name]
  42.     return $this
  43. }
  44.  
  45. selfPromoter Corporate {this} {
  46.     if {(! [isCommand Browser]) || (! [info exists wmttoolObj])} return
  47.  
  48.     CorpDbObj promote $this
  49. }
  50.  
  51. method CorpDbObj::promoter {this} {
  52.     $this BrowsDbObj::promoter
  53.  
  54.     # this is the corporate object of the browser
  55.     $wmttoolObj corporateObj $this
  56.  
  57.     set customFileSet $this.${HCustFUiObj::uiClass}:0
  58.     if {! [isCommand $customFileSet]} {
  59.     HCustFUiObj new $customFileSet -parent $this
  60.     }
  61.     $this customFileSet $customFileSet
  62.  
  63.     module_promoter CorpDbObj $this
  64. }
  65.  
  66. method CorpDbObj::addModel {this} {
  67.     # Implemented in module groundworks
  68. }
  69.  
  70. method CorpDbObj::addProject {this} {
  71.     # Implemented in module objectteam
  72. }
  73.  
  74. method CorpDbObj::addRole {this} {
  75.     # Implemented in module security
  76. }
  77.  
  78. method CorpDbObj::addUser {this} {
  79.     # Implemented in module security
  80. }
  81.  
  82. proc CorpDbObj::associations {} {
  83.     return {customFileSet}
  84. }
  85.  
  86. proc CorpDbObj::childTypes {assoc} {
  87.     if {[lsearch -exact "[CorpDbObj::associations]" "$assoc"] == -1} {
  88.     return ""
  89.     }
  90.     return "[BrowserProcs::childTypes $assoc]"
  91. }
  92.  
  93. proc CorpDbObj::controlledLists {} {
  94.     return {}
  95. }
  96.  
  97. method CorpDbObj::corporateGroupVersions {this} {
  98.     # Implemented in module corpmodeling
  99. }
  100.  
  101. proc CorpDbObj::infoProperties {} {
  102.     return [concat \
  103.     [BrowserProcs::infoProperties] \
  104.     {"DB Name" "DB Host" "DB Server" Release "Controlled Actions"} \
  105.     ]
  106. }
  107.  
  108. method CorpDbObj::removeObjects {this} {
  109.     set box $wmttoolObj.removeWarning
  110.     YesNoWarningDialog new $box \
  111.     -title "Confirm Project Delete" \
  112.     -message [BrowserProcs::removeMessage] \
  113.     -noPressed {%this delete} \
  114.     -yesPressed {
  115.         set script ""
  116.         foreach obj [$wmttoolObj selectedObjSet] {
  117.         if {"$script" != ""} {
  118.             append script " ;"
  119.         }
  120.         if [$obj isA User] {
  121.             append script " [$wmttoolObj corporateObj] removeUser $obj"
  122.         } else {
  123.             append script " $obj destroy"
  124.         }
  125.         }
  126.         $wmttoolObj startCommand tcl "$script" "" "" {1 0} 1
  127.         %this delete
  128.     }
  129.     $box delCancelButton
  130.     $box popUp
  131. }
  132.  
  133. # Do not delete this line -- regeneration end marker
  134.  
  135.