home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / drsitemobj.tcl < prev    next >
Text File  |  1997-08-29  |  2KB  |  81 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cayenne Software Inc.    1997
  4. #
  5. #      File:           @(#)drsitemobj.tcl    /main/titanic/4
  6. #      Author:         <generated>
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)drsitemobj.tcl    /main/titanic/4   29 Aug 1997 Copyright 1997 Cayenne Software Inc.
  10.  
  11. # Start user added include file section
  12. # End user added include file section
  13.  
  14. require "drsgrouped.tcl"
  15.  
  16. Class DrsItemObject : {DrsGroupedObject} {
  17.     method destructor
  18.     constructor
  19.     method getLevelV
  20.     method getPhase
  21.     method getPropertyObject
  22.     method getTimeStampObject
  23.     method isAvailable
  24.     attribute item
  25. }
  26.  
  27. method DrsItemObject::destructor {this} {
  28.     # Start destructor user section
  29.     # End destructor user section
  30.     $this DrsGroupedObject::destructor
  31. }
  32.  
  33. constructor DrsItemObject {class this workItem system systemV} {
  34.     set this [DrsGroupedObject::constructor $class $this $workItem "" $system $systemV]
  35.     $this levelVersions $workItem
  36.     $this item [$workItem item]
  37.     return $this
  38.  
  39. }
  40.  
  41. method DrsItemObject::getLevelV {this} {
  42.     return [$this getPropertyObject]
  43. }
  44.  
  45. method DrsItemObject::getPhase {this} {
  46.     set workItem [$this level]
  47.         set systemV [$workItem owner]
  48.         set system [$systemV system]
  49.         return [$system phase]
  50.  
  51. }
  52.  
  53. method DrsItemObject::getPropertyObject {this} {
  54.     return [[$this level] properties]
  55. }
  56.  
  57. method DrsItemObject::getTimeStampObject {this} {
  58.     return [$this level]
  59. }
  60.  
  61. method DrsItemObject::isAvailable {this parentList} {
  62.     if {[lsearch $parentList [$this parentLevelId]] == -1} {
  63.         return 0
  64.     }
  65.     set levelV [$this getLevelV]
  66.     set linkedInPhase [$levelV getPropertyValue ${DrsDriver::FORMALMODULE}_Phase]
  67.     set phase [$this getPhase]
  68.     set currPhaseName [[$this getPhase] name]
  69.     if {$currPhaseName == $linkedInPhase} {
  70.         set linkedInProject [$levelV getPropertyValue ${DrsDriver::FORMALMODULE}_Project]
  71.         set currProjectName [[$phase project] name]
  72.         if {$currProjectName == $linkedInProject} {
  73.         return 1
  74.         }
  75.     }
  76.     return 0
  77. }
  78.  
  79. # Do not delete this line -- regeneration end marker
  80.  
  81.