home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / classes.tcl < prev    next >
Text File  |  1997-01-09  |  1KB  |  51 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #    (c) Cayenne Software 1996
  4. #
  5. #    File:        @(#)stclasses.tcl    /main/titanic/2
  6. #    Description:    Report on classes (Modified for Smalltalk properties)
  7. #
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)stclasses.tcl    /main/titanic/2 9 Jan 1997    Copyright 1996 Cayenne Software
  10.  
  11.  
  12. eval [$cc getCustomFileContents classes tcl reports]
  13.  
  14.  
  15. Class ReportSTClasses : {ReportClasses} {
  16.     constructor
  17.  
  18.     method classProps
  19.     method attrProps
  20.     method methodProps
  21. }
  22.  
  23.  
  24. constructor ReportSTClasses {class this} {
  25.     set this [ReportClasses::constructor $class $this]
  26.     return $this
  27. }
  28.  
  29.  
  30. # Note: Next three methods define which properties are printed for each
  31. #       class, attribute and method and the order in which they are shown.
  32. #       Add or remove a short property name to change the report.
  33.  
  34.  
  35. method ReportSTClasses::classProps {this} {
  36.     return "freeText classCategory inheritanceType class_source"
  37. }
  38.  
  39.  
  40. method ReportSTClasses::attrProps {this} {
  41.     return "freeText isPoolDict attribAccess nullable"
  42. }
  43.  
  44.  
  45. method ReportSTClasses::methodProps {this} {
  46.     return "freeText methodCategory method_impl"
  47. }
  48.  
  49.  
  50. set executeMe [ReportSTClasses new]
  51.