home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / komix / DATA.Z / svdgrp.tcl < prev    next >
Encoding:
Text File  |  1996-12-11  |  2.7 KB  |  96 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #    (c) Cadre Technologies Inc. 1995
  4. #
  5. #    File:        @(#)svdgrp.tcl    /main/hindenburg/1
  6. #    Author:        Harm Leijendeckers
  7. #    Description:    Report on saved groups
  8. #    Usage in:    SystemVersion
  9. #
  10. #---------------------------------------------------------------------------
  11. # SccsId = @(#)svdgrp.tcl    /main/hindenburg/1    11 Dec 1996    Copyright 1995 Cadre Technologies Inc.
  12.  
  13.  
  14. Class ReportSavedGroups : {ReportBase} {
  15.     constructor
  16.     method systemReport
  17. }
  18.  
  19.  
  20. constructor ReportSavedGroups {class this} {
  21.     set this [ReportBase::constructor $class $this]
  22.     $this reportName "Saved Groups"
  23.     return $this
  24. }
  25.  
  26.  
  27. method ReportSavedGroups::systemReport {this} {
  28.     set allSavedGroups [[[$this systemV] system] savedGroups]
  29.     if [lempty $allSavedGroups] { return 0 }
  30.  
  31.     set first 1
  32.     foreach sg [osort name $allSavedGroups] {
  33.     if !$first {
  34.         [$this report] line
  35.         [$this report] line
  36.     } else {
  37.         set first 0
  38.     }
  39.  
  40.     [$this report] print "Saved Group: " 17 right
  41.     [$this report] print [$sg name] line
  42.     [$this report] print "Corporate Group: "
  43.     if { ![[$sg corporateGroup] isNil] } {
  44.         [$this report] print [[$sg corporateGroup] name]
  45.     } else {
  46.         [$this report] print -
  47.     }
  48.     [$this report] line
  49.     [$this report] line
  50.     [$this report] print Version 15 right
  51.     [$this report] separator " | "
  52.     [$this report] print Creator 15
  53.     [$this report] separator " | "
  54.     [$this report] print "Create Time" 14 center
  55.     [$this report] separator " | "
  56.     [$this report] print "Corporate" 9
  57.     [$this report] separator " | "
  58.     [$this report] print "Comments" 30
  59.     [$this report] separator " | "
  60.     [$this report] print "Contents" line
  61.     [$this report] print - 131 fill line
  62.  
  63.     foreach version [osort versionNumber [$sg savedGroupVersions]] {
  64.         [$this report] print [$version versionNumber] 15 right
  65.         [$this report] separator " | "
  66.         [$this report] print [[$version creator] name] 15
  67.         [$this report] separator " | "
  68.         [$this report] print [fmtclock [$version createTime] "%R %D"] 14
  69.         [$this report] separator " | "
  70.         if { ![[$version corporateGroupVersion] isNil] } {
  71.         [$this report] print yes 9 center
  72.         } else {
  73.         [$this report] print no 9 center
  74.         }
  75.         [$this report] separator " | "
  76.         [$this report] print [$version comments] 30
  77.         [$this report] separator " | "
  78.  
  79.         set contents ""
  80.         foreach fileV [osort file.type file.name [$version fileVersions]] {
  81.         set file [$fileV file]
  82.         set contents [format "%s%-33s" $contents \
  83.             "[$file name].[$file type].[$fileV versionName]"]
  84.         }
  85.         [$this report] print $contents 33 line
  86.     }
  87.     }
  88.  
  89.     [$this report] page
  90.  
  91.     return 0
  92. }
  93.  
  94.  
  95. set executeMe [ReportSavedGroups new]
  96.