home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / cadnassocn.tcl < prev    next >
Encoding:
Text File  |  1996-05-29  |  2.0 KB  |  88 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cadre Technologies Inc.    1996
  4. #
  5. #      File:           @(#)cadnassocn.tcl    1.7
  6. #      Author:         <generated>
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)cadnassocn.tcl    1.7   31 Jan 1996 Copyright 1996 Cadre Technologies Inc.
  10.  
  11. # Start user added include file section
  12. # End user added include file section
  13.  
  14.  
  15. Class CADNAssocNode : {SMNode} {
  16.     constructor
  17.     method destructor
  18.     method load
  19.     method getNameLabel
  20.     method getNameItem
  21.     method getNameWorkItem
  22.     method name
  23.     method addNAssocConn
  24.     method removeNAssocConn
  25.     attribute loaded
  26.     attribute nAssocConnSet
  27. }
  28.  
  29. constructor CADNAssocNode {class this inModel} {
  30.     set this [SMNode::constructor $class $this $inModel]
  31.     $this loaded 0
  32.     $this nAssocConnSet [List new]
  33.     # Start constructor user section
  34.     # End constructor user section
  35.     return $this
  36. }
  37.  
  38. method CADNAssocNode::destructor {this} {
  39.     # Start destructor user section
  40.     # End destructor user section
  41. }
  42.  
  43. method CADNAssocNode::load {this} {
  44.     if {[$this loaded] == 1} {
  45.         return
  46.     }
  47.     $this loaded 1
  48.  
  49.     set connectors [$this getConnectors $OMT_CAD_NaryAssocConn \
  50.         $OMT_CAD_CB_Class]
  51.     foreach conn $connectors {
  52.         $this addNAssocConn $conn
  53.         $conn load
  54.     }
  55. }
  56.  
  57. method CADNAssocNode::getNameLabel {this} {
  58.     return [$this getLabel]
  59. }
  60.  
  61. method CADNAssocNode::getNameItem {this} {
  62.     return [$this getItem]
  63. }
  64.  
  65. method CADNAssocNode::getNameWorkItem {this} {
  66.     return [$this getWorkItem]
  67. }
  68.  
  69. method CADNAssocNode::name {this} {
  70.     set nameItem [$this getNameItem]
  71.     if {[$nameItem isNil]} {
  72.         return ""
  73.     }
  74.     return [$nameItem name]
  75. }
  76.  
  77. # Do not delete this line -- regeneration end marker
  78.  
  79. method CADNAssocNode::addNAssocConn {this newNAssocConn} {
  80.     [$this nAssocConnSet] append $newNAssocConn
  81.  
  82. }
  83.  
  84. method CADNAssocNode::removeNAssocConn {this oldNAssocConn} {
  85.     [$this nAssocConnSet] removeValue $oldNAssocConn
  86. }
  87.  
  88.