home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / phases.tcl < prev    next >
Text File  |  1997-08-26  |  2KB  |  77 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #    (c) Cadre Technologies Inc. 1995
  4. #
  5. #    File:        @(#)phases.tcl    /main/titanic/2
  6. #    Author:        Harm Leijendeckers
  7. #    Description:    Report on phases
  8. #    Usage in:    ConfigVersion and higher
  9. #
  10. #---------------------------------------------------------------------------
  11. # SccsId = @(#)phases.tcl    /main/titanic/2    26 Aug 1997    Copyright 1995 Cadre Technologies Inc.
  12.  
  13.  
  14. Class ReportPhases : {ReportBase} {
  15.     constructor
  16.  
  17.     attribute printProps
  18.  
  19.     method configReport
  20. }
  21.  
  22.  
  23. constructor ReportPhases {class this} {
  24.     set this [ReportBase::constructor $class $this]
  25.     if { [lsearch $Options "properties"] != -1 } {
  26.         $this printProps 1
  27.     } else {
  28.         $this printProps 0
  29.     }
  30.     $this reportName Phases
  31.     return $this
  32. }
  33.  
  34.  
  35. method ReportPhases::configReport {this} {
  36.     set phaseV [[$this configV] firstPhaseVersion]
  37.     if { [$phaseV isNil] } { return 0 }
  38.  
  39.     set report [$this report]
  40.     $report header {
  41.     [$this report] print Phase 31
  42.     [$this report] print Type 21
  43.     [$this report] print Version 26
  44.     [$this report] print Status 16
  45.     [$this report] print Link line
  46.     [$this report] line
  47.     }
  48.  
  49.     while { ![$phaseV isNil] } {
  50.     $report print [[$phaseV phase] name] 30
  51.     $report space
  52.     $report print [[$phaseV phase] type] 20
  53.     $report space
  54.     $report print [$phaseV versionName] 25
  55.     $report space
  56.     $report print [$phaseV status] 15
  57.     $report space
  58.     set link [[$this configV] findPhaseVersionLink -byPhaseVersion $phaseV]
  59.     $report print [$link status] 15
  60.     $report line
  61.  
  62.         if [$this printProps] { 
  63.         $this showProperties $phaseV
  64.     }
  65.  
  66.     set phaseV [$phaseV next [$this configV]]
  67.     }
  68.  
  69.     $report page
  70.     $report remove header
  71.  
  72.     return 0
  73. }
  74.  
  75.  
  76. set executeMe [ReportPhases new]
  77.