home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / witemdbobj.tcl < prev    next >
Encoding:
Text File  |  1997-09-29  |  2.8 KB  |  121 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cayenne Software Inc.    1997
  4. #
  5. #      File:           @(#)witemdbobj.tcl    /main/titanic/4
  6. #      Author:         <generated>
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)witemdbobj.tcl    /main/titanic/4   29 Sep 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 WItemDbObj : {BrowsDbObj WorkItem} {
  17.     method destructor
  18.     constructor
  19.     method promoter
  20.     method browserType
  21.     method canBeMoved
  22.     method createTime2String
  23.     method customLevelVersion
  24.     method displayName
  25.     method hasChildren
  26.     method makeUpToDate
  27.     method scope2String
  28.     method updateTime2String
  29. }
  30.  
  31. method WItemDbObj::destructor {this} {
  32.     # Start destructor user section
  33.     # End destructor user section
  34.     $this BrowsDbObj::destructor
  35. }
  36.  
  37. constructor WItemDbObj {class this name} {
  38.     set this [WorkItem::constructor $class $this $name]
  39.     set this [BrowsDbObj::constructor $class $this $name]
  40.     return $this
  41. }
  42.  
  43. selfPromoter WorkItem {this} {
  44.     WItemDbObj promote $this
  45. }
  46.  
  47. method WItemDbObj::promoter {this} {
  48.     $this BrowsUiObj::promoter
  49.     module_promoter WItemDbObj $this
  50. }
  51.  
  52. proc WItemDbObj::associations {} {
  53.     return ""
  54. }
  55.  
  56. method WItemDbObj::browserType {this} {
  57.     return [$this type]
  58. }
  59.  
  60. method WItemDbObj::canBeMoved {this} {
  61.     if {"[$this getInfo Scope]" != "phaseDef"} {
  62.     return 0
  63.     }
  64.     if {[$this item] == [[[$this getParent SystemVersion] system] item]} {
  65.     return 0
  66.     }
  67.     return 1
  68. }
  69.  
  70. proc WItemDbObj::childTypes {assoc} {
  71.     if {[lsearch -exact "[WItemDbObj::associations]" "$assoc"] == -1} {
  72.     return ""
  73.     }
  74.     return "[BrowserProcs::childTypes $assoc]"
  75. }
  76.  
  77. proc WItemDbObj::controlledLists {} {
  78.     return ""
  79. }
  80.  
  81. method WItemDbObj::createTime2String {this} {
  82.     return [BrowserProcs::displayDate [$this createTime]]
  83. }
  84.  
  85. method WItemDbObj::customLevelVersion {this} {
  86.     return [$this owner]
  87. }
  88.  
  89. method WItemDbObj::displayName {this} {
  90.     return "[$this qualifiedName :]"
  91. }
  92.  
  93. method WItemDbObj::hasChildren {this} {
  94.     return 0
  95. }
  96.  
  97. proc WItemDbObj::infoProperties {} {
  98.     return [concat \
  99.     [BrowserProcs::infoProperties] \
  100.     {Status Scope Created Updated} \
  101.     ]
  102. }
  103.  
  104. method WItemDbObj::makeUpToDate {this} {
  105.     # dummy call to server
  106.     $this properties
  107. }
  108.  
  109. method WItemDbObj::scope2String {this} {
  110.     regsub scope "[$this scope]" "" scope
  111.     return \
  112.     "[string tolower [string range $scope 0 0]][string range $scope 1 end]"
  113. }
  114.  
  115. method WItemDbObj::updateTime2String {this} {
  116.     return [BrowserProcs::displayDate [$this updateTime]]
  117. }
  118.  
  119. # Do not delete this line -- regeneration end marker
  120.  
  121.