home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / intpropref.tcl < prev    next >
Encoding:
Text File  |  1997-06-12  |  2.2 KB  |  74 lines
  1.  
  2. # Copyright (c) 1996 by Cayenne Software Inc.
  3. #
  4. # This software is furnished under a license and may be used only in
  5. # accordance with the terms of such license and with the inclusion of
  6. # the above copyright notice. This software or any other copies thereof
  7. # may not be provided or otherwise made available to any other person.
  8. # No title to and ownership of the software is hereby transferred.
  9. #
  10. # The information in this software is subject to change without notice
  11. # and should not be construed as a commitment by Cayenne Software Inc
  12. #
  13. #---------------------------------------------------------------------------
  14. #
  15. #       File            : @(#)intpropref.tcl    /main/titanic/1
  16. #       Author          : H. Broeze
  17. #       Original date   : 6 Sep 1996
  18. #       Description     : Installation of RTM integration
  19. #
  20. #---------------------------------------------------------------------------
  21. #
  22. # @(#)intpropref.tcl    /main/titanic/1 12 Jun 1997 Copyright 1996 Cayenne Software
  23.  
  24. # Start user added include file section
  25. require intdictnod.tcl
  26. # End user added include file section
  27.  
  28.  
  29. Class INTPropRefContainer : {INTDictNode Object} {
  30.     constructor
  31.     method destructor
  32.     method createContainerChild
  33.     method getChild
  34.     method setChild
  35.     method removeChild
  36.     attribute child
  37. }
  38.  
  39. constructor INTPropRefContainer {class this name} {
  40.     set this [INTDictNode::constructor $class $this $name]
  41.     set this [Object::constructor $class $this $name]
  42.     $this child [Dictionary new]
  43.     # Start constructor user section
  44.     # End constructor user section
  45.     return $this
  46. }
  47.  
  48. method INTPropRefContainer::destructor {this} {
  49.     # Start destructor user section
  50.     # End destructor user section
  51.     $this INTDictNode::destructor
  52. }
  53.  
  54. method INTPropRefContainer::createContainerChild {this hashId newName} {
  55.     set newContainerChild  [INTPropRefContainer new $newName]
  56.     $this setChild $hashId $newContainerChild
  57.     return $newContainerChild
  58. }
  59.  
  60. # Do not delete this line -- regeneration end marker
  61.  
  62. method INTPropRefContainer::getChild {this hashId} {
  63.     return [[$this child] set $hashId]
  64. }
  65.  
  66. method INTPropRefContainer::setChild {this hashId newChild} {
  67.     [$this child] set $hashId $newChild
  68. }
  69.  
  70. method INTPropRefContainer::removeChild {this hashId} {
  71.     [$this child] unset $hashId
  72. }
  73.  
  74.