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