home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / komix / DATA.Z / cbcadmodel.tcl < prev    next >
Text File  |  1996-05-29  |  2KB  |  62 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Westmount Technology    1994
  4. #
  5. #      File:           @(#)cbcadmodel.tcl    1.3
  6. #      Author:         <generated>
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)cbcadmodel.tcl    1.3   04 Aug 1995 Copyright 1994 Westmount Technology
  10.  
  11. # Start user added include file section
  12. require "cbclass.tcl"
  13. require "cbbinaryas.tcl"
  14. require "cbnaryasso.tcl"
  15. # End user added include file section
  16.  
  17. require "cadmodel.tcl"
  18.  
  19. Class CBCADModel : {CADModel} {
  20.     constructor
  21.     method destructor
  22. }
  23.  
  24. constructor CBCADModel {class this i_configVersion i_phaseVersion} {
  25.     set this [CADModel::constructor $class $this $i_configVersion $i_phaseVersion]
  26.     # Start constructor user section
  27.  
  28.     # Add creator scripts to the ObjectFactory
  29.     set objFac [$this getObjectFactory]
  30. #    $objFac addCreatorScript $OMT_CAD_Class \
  31. #        "return \[CBClass new $this]"
  32. #    $objFac addCreatorScript $OMT_CAD_Container \
  33. #        "return \[CBClass new $this]"
  34. #    $objFac addCreatorScript $OMT_CAD_Association \
  35. #        "return \[CBBinaryAssoc new $this]"
  36. #    $objFac addCreatorScript $OMT_CAD_Aggregation \
  37. #        "return \[CBBinaryAssoc new $this]"
  38. #    $objFac addCreatorScript $OMT_CAD_QualAssoc \
  39. #        "return \[CBBinaryAssoc new $this]"
  40. #    $objFac addCreatorScript $OMT_CAD_QualAggr \
  41. #        "return \[CBBinaryAssoc new $this]"
  42.     $objFac addCreatorScript $OMT_CAD_NaryAssocConn \
  43.         "return \[CBNaryAssoc new $this]"
  44.     # Combined types
  45.     $objFac addCreatorScript $OMT_CAD_CB_Class \
  46.         "return \[CBClass new $this]"
  47.     $objFac addCreatorScript $OMT_CAD_CB_Association \
  48.         "return \[CBBinaryAssoc new $this]"
  49.  
  50.     # End constructor user section
  51.     return $this
  52. }
  53.  
  54. method CBCADModel::destructor {this} {
  55.     # Start destructor user section
  56.     # End destructor user section
  57.     $this CADModel::destructor
  58. }
  59.  
  60. # Do not delete this line -- regeneration end marker
  61.  
  62.