home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / corpgvdbob.tcl < prev    next >
Text File  |  1997-10-16  |  3KB  |  120 lines

  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cayenne Software Inc.    1997
  4. #
  5. #      File:           @(#)corpgvdbob.tcl    /main/titanic/7
  6. #      Author:         <generated>
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)corpgvdbob.tcl    /main/titanic/7   16 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 CorpGVDbObj : {BrowsDbObj CorporateGroupVersion} {
  17.     method destructor
  18.     constructor
  19.     method canBeDragged
  20.     method createTime2String
  21.     method customLevelVersion
  22.     method makeUpToDate
  23.     method name
  24.     method removeVersion
  25.     method versionInLabel
  26.     method versionName
  27. }
  28.  
  29. method CorpGVDbObj::destructor {this} {
  30.     # Start destructor user section
  31.     # End destructor user section
  32.     $this BrowsDbObj::destructor
  33. }
  34.  
  35. constructor CorpGVDbObj {class this name} {
  36.     set this [CorporateGroupVersion::constructor $class $this $name]
  37.     set this [BrowsDbObj::constructor $class $this $name]
  38.     return $this
  39. }
  40.  
  41. selfPromoter CorporateGroupVersion {this} {
  42.     CorpGVDbObj promote $this
  43. }
  44.  
  45. proc CorpGVDbObj::associations {} {
  46.     return {savedGroupVersion}
  47. }
  48.  
  49. method CorpGVDbObj::canBeDragged {this} {
  50.     return 1
  51. }
  52.  
  53. proc CorpGVDbObj::childTypes {assoc} {
  54.     if {[lsearch -exact "[CorpGVDbObj::associations]" "$assoc"] == -1} {
  55.     return ""
  56.     }
  57.     return "[BrowserProcs::childTypes $assoc]"
  58. }
  59.  
  60. proc CorpGVDbObj::controlledLists {} {
  61.     return ""
  62. }
  63.  
  64. method CorpGVDbObj::createTime2String {this} {
  65.     return [BrowserProcs::displayDate [$this createTime]]
  66. }
  67.  
  68. method CorpGVDbObj::customLevelVersion {this} {
  69.     return [$this corporate]
  70. }
  71.  
  72. proc CorpGVDbObj::infoProperties {} {
  73.     return [concat \
  74.     [BrowserProcs::infoProperties] \
  75.     {Version Comments Created "Controlled Actions"} \
  76.     ]
  77. }
  78.  
  79. method CorpGVDbObj::makeUpToDate {this} {
  80.     # dummy call to server
  81.     $this project
  82. }
  83.  
  84. method CorpGVDbObj::name {this} {
  85.     return "[[$this corporateGroup] name]"
  86. }
  87.  
  88. method CorpGVDbObj::removeVersion {this} {
  89.     set box $wmttoolObj.removeVersionWarning
  90.     YesNoWarningDialog new $box \
  91.     -title "Confirm Version Delete" \
  92.     -message [BrowserProcs::removeMessage] \
  93.     -helpPressed {.main helpOnName removeVersionWarning} \
  94.     -noPressed {%this delete} \
  95.     -yesPressed {
  96.         set script ""
  97.         foreach obj [$wmttoolObj selectedObjSet] {
  98.         if {"$script" != ""} {
  99.             append script " ;"
  100.         }
  101.         append script " [$obj corporateGroup] removeVersion $obj"
  102.         }
  103.         $wmttoolObj startCommand tcl "$script" "" "" {1 0} 1
  104.         %this delete
  105.     }
  106.     $box delCancelButton
  107.     $box popUp
  108. }
  109.  
  110. method CorpGVDbObj::versionInLabel {this} {
  111.     return 1
  112. }
  113.  
  114. method CorpGVDbObj::versionName {this} {
  115.     return [$this versionNumber]
  116. }
  117.  
  118. # Do not delete this line -- regeneration end marker
  119.  
  120.