home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / ccdirdbobj.tcl < prev    next >
Text File  |  1997-05-21  |  3KB  |  132 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cayenne Software Inc.    1997
  4. #
  5. #      File:           @(#)ccdirdbobj.tcl    /main/titanic/3
  6. #      Author:         <generated>
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)ccdirdbobj.tcl    /main/titanic/3   21 May 1997 Copyright 1997 Cayenne Software Inc.
  10.  
  11. # Start user added include file section
  12. # End user added include file section
  13.  
  14. require_module_file "ccfiledbob.tcl" clearcase
  15. require_module_file "vsdirobj.tcl" vcm
  16.  
  17. # This class represents a ClearCase directory in the browser.
  18.  
  19. Class CCDirDbObj : {CCFileDbObj VSDirObj} {
  20.     constructor
  21.     method destructor
  22.     method uiClass
  23.     method promoter
  24.     method openFile
  25.     method showFile
  26.     method editFile
  27.     method path
  28.     method isDirectory
  29.     method showFileVersion
  30. }
  31.  
  32. constructor CCDirDbObj {class this name name} {
  33.     set this [CCFileDbObj::constructor $class $this $name $name]
  34.     set this [VSDirObj::constructor $class $this $name]
  35.     # Start constructor user section
  36.     # End constructor user section
  37.     return $this
  38. }
  39.  
  40. method CCDirDbObj::destructor {this} {
  41.     # Start destructor user section
  42.     # End destructor user section
  43.     $this CCFileDbObj::destructor
  44.     $this VSDirObj::destructor
  45. }
  46.  
  47.  
  48. # Reuse associations of CCFileDbObj
  49. #
  50. proc CCDirDbObj::associations {} {
  51.     return "[CCFileDbObj::associations]"
  52. }
  53.  
  54.  
  55. # Reuse childTypes of CCFileDbObj.
  56. #
  57. proc CCDirDbObj::childTypes {assoc} {
  58.     return "[CCFileDbObj::childTypes $assoc]"
  59. }
  60.  
  61.  
  62. # Reuse controlledLists of CCFileDbObj.
  63. #
  64. proc CCDirDbObj::controlledLists {} {
  65.     return "[CCFileDbObj::controlledLists]"
  66. }
  67.  
  68.  
  69. # Use infoProperties of CCFileDbObj and remove className.
  70. #
  71. proc CCDirDbObj::infoProperties {} {
  72.     set propertyList [CCFileDbObj::infoProperties]
  73.     set classNameIndex [lsearch $propertyList className]
  74.     retrun [join [lreplace $propertyList $classNameIndex $classNameIndex ""]]
  75. }
  76.  
  77.  
  78. # Call uiClass in VSDirObj.
  79. #
  80. method CCDirDbObj::uiClass {this} {
  81.     return [$this VSDirObj::uiClass]
  82. }
  83.  
  84. method CCDirDbObj::promoter {this} {
  85.     $this VSDirObj::promoter
  86. }
  87.  
  88.  
  89. # Call openFile of VSDirObj.
  90. #
  91. method CCDirDbObj::openFile {this} {
  92.     return [$this VSDirObj::openFile]
  93. }
  94.  
  95.  
  96. # Call showFile of VSDirObj.
  97. #
  98. method CCDirDbObj::showFile {this} {
  99.     $this VSDirObj::showFile
  100. }
  101.  
  102.  
  103. # Call editFile of VSDirObj.
  104. #
  105. method CCDirDbObj::editFile {this} {
  106.     $this VSDirObj::editFile
  107. }
  108.  
  109.  
  110. # Call path of VSDirObj.
  111. #
  112. method CCDirDbObj::path {this} {
  113.     return [$this VSDirObj::path]
  114. }
  115.  
  116.  
  117. # Returns 1.
  118. #
  119. method CCDirDbObj::isDirectory {this} {
  120.     return 1
  121. }
  122.  
  123.  
  124. # Show a ls of the specified directory version.
  125. #
  126. method CCDirDbObj::showFileVersion {this version} {
  127.     # !! Implement this function !!
  128. }
  129.  
  130. # Do not delete this line -- regeneration end marker
  131.  
  132.