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