home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / cadmethod.tcl < prev    next >
Encoding:
Text File  |  1996-05-29  |  1.8 KB  |  74 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cadre Technologies Inc.    1996
  4. #
  5. #      File:           @(#)cadmethod.tcl    1.6
  6. #      Author:         <generated>
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)cadmethod.tcl    1.6   20 Mar 1996 Copyright 1996 Cadre Technologies Inc.
  10.  
  11. # Start user added include file section
  12. require "cadparamet.tcl"
  13. # End user added include file section
  14.  
  15. require "cadfeature.tcl"
  16.  
  17. Class CADMethod : {CADFeature} {
  18.     constructor
  19.     method destructor
  20.     method createParameters
  21.     method createParameter
  22.     method getNameItemType
  23.     method parameterSet
  24.     method addParameter
  25.     method removeParameter
  26.     attribute _parameterSet
  27. }
  28.  
  29. constructor CADMethod {class this theClass row} {
  30.     set this [CADFeature::constructor $class $this $theClass $row]
  31.     $this _parameterSet [List new]
  32.     # Start constructor user section
  33.     $this createParameters
  34.     # End constructor user section
  35.     return $this
  36. }
  37.  
  38. method CADMethod::destructor {this} {
  39.     # Start destructor user section
  40.     # End destructor user section
  41.     $this CADFeature::destructor
  42. }
  43.  
  44. method CADMethod::createParameters {this} {
  45.     [[$this row] cachedCellSet] foreach cell {
  46.         $this createParameter $cell
  47.     }
  48. }
  49.  
  50. method CADMethod::createParameter {this cell} {
  51.     return [CADParameter new $cell $this]
  52. }
  53.  
  54. method CADMethod::getNameItemType {this} {
  55.     return $IT_PROCESS
  56. }
  57.  
  58. # Do not delete this line -- regeneration end marker
  59.  
  60. method CADMethod::parameterSet {this} {
  61.     return [$this _parameterSet]
  62. }
  63.  
  64. method CADMethod::addParameter {this newParameter} {
  65.     [$this _parameterSet] append $newParameter
  66.     $newParameter _method $this
  67. }
  68.  
  69. method CADMethod::removeParameter {this oldParameter} {
  70.     $oldParameter _method ""
  71.     [$this _parameterSet] removeValue $oldParameter
  72. }
  73.  
  74.