home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / cadbinarya.tcl < prev    next >
Text File  |  1997-09-03  |  4KB  |  172 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cayenne Software Inc.    1997
  4. #
  5. #      File:           @(#)cadbinarya.tcl    /main/titanic/1
  6. #      Author:         <generated>
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)cadbinarya.tcl    /main/titanic/1   3 Sep 1997 Copyright 1997 Cayenne Software Inc.
  10.  
  11. # Start user added include file section
  12. # End user added include file section
  13.  
  14. require "cadassocia.tcl"
  15.  
  16. Class CADBinaryAssoc : {CADAssociation} {
  17.     constructor
  18.     method destructor
  19.     method load
  20.     method getNameLabel
  21.     method getNameItem
  22.     method getNameWorkItem
  23.     method name
  24.     method getFromRoleLabel
  25.     method getFromRoleItem
  26.     method getFromRoleWorkItem
  27.     method fromRole
  28.     method getFromConstraintLabel
  29.     method fromConstraint
  30.     method getToRoleLabel
  31.     method getToRoleItem
  32.     method getToRoleWorkItem
  33.     method toRole
  34.     method getToConstraintLabel
  35.     method toConstraint
  36.     method getQualifierLabel
  37.     method getQualifierItem
  38.     method getQualifierWorkItem
  39.     method qualifier
  40.     attribute toClass
  41.     attribute fromClass
  42. }
  43.  
  44. constructor CADBinaryAssoc {class this inModel} {
  45.     set this [CADAssociation::constructor $class $this $inModel]
  46.     # Start constructor user section
  47.     # End constructor user section
  48.     return $this
  49. }
  50.  
  51. method CADBinaryAssoc::destructor {this} {
  52.     # Start destructor user section
  53.     # End destructor user section
  54.     $this CADAssociation::destructor
  55. }
  56.  
  57. method CADBinaryAssoc::load {this} {
  58.     if {[$this loaded] == 1} {
  59.         return
  60.     }
  61.     $this loaded 1
  62.     $this fromClass [$this getFrom $OMT_CAD_CB_Class]
  63.     $this toClass [$this getTo $OMT_CAD_CB_Class]
  64. }
  65.  
  66. method CADBinaryAssoc::getNameLabel {this} {
  67.     return [$this getLabel]
  68. }
  69.  
  70. method CADBinaryAssoc::getNameItem {this} {
  71.     return [$this getItem]
  72. }
  73.  
  74. method CADBinaryAssoc::getNameWorkItem {this} {
  75.     return [$this getWorkItem]
  76. }
  77.  
  78. method CADBinaryAssoc::name {this} {
  79.     set nameItem [$this getNameItem]
  80.     if {[$nameItem isNil]} {
  81.         return ""
  82.     }
  83.     return [$nameItem name]
  84. }
  85.  
  86. method CADBinaryAssoc::getFromRoleLabel {this} {
  87.     return [$this getLabel 0 $LT_ROLE_AT_START]
  88. }
  89.  
  90. method CADBinaryAssoc::getFromRoleItem {this} {
  91.     return [$this getItem 0 $LT_ROLE_AT_START $IT_DATA]
  92. }
  93.  
  94. method CADBinaryAssoc::getFromRoleWorkItem {this} {
  95.     return [$this getWorkItem 0 $LT_ROLE_AT_START $IT_DATA]
  96. }
  97.  
  98. method CADBinaryAssoc::fromRole {this} {
  99.     set fromRoleItem [$this getFromRoleItem]        
  100.     if {[$fromRoleItem isNil]} {
  101.         return ""
  102.     }
  103.     return [$fromRoleItem name]
  104. }
  105.  
  106. method CADBinaryAssoc::getFromConstraintLabel {this} {
  107.     return [$this getLabel 0 $LT_CONSTRAINT_AT_START]
  108. }
  109.  
  110. method CADBinaryAssoc::fromConstraint {this} {
  111.     set label [$this getFromConstraintLabel]
  112.     if [$label isNil] {
  113.         return ""
  114.     }
  115.     return [$label value]
  116. }
  117.  
  118. method CADBinaryAssoc::getToRoleLabel {this} {
  119.     return [$this getLabel 0 $LT_ROLE_AT_END]
  120. }
  121.  
  122. method CADBinaryAssoc::getToRoleItem {this} {
  123.     return [$this getItem 0 $LT_ROLE_AT_END $IT_DATA]
  124. }
  125.  
  126. method CADBinaryAssoc::getToRoleWorkItem {this} {
  127.     return [$this getWorkItem 0 $LT_ROLE_AT_END $IT_DATA]
  128. }
  129.  
  130. method CADBinaryAssoc::toRole {this} {
  131.     set toRoleItem [$this getToRoleItem]        
  132.     if {[$toRoleItem isNil]} {
  133.         return ""
  134.     }
  135.     return [$toRoleItem name]
  136. }
  137.  
  138. method CADBinaryAssoc::getToConstraintLabel {this} {
  139.     return [$this getLabel 0 $LT_CONSTRAINT_AT_END]
  140. }
  141.  
  142. method CADBinaryAssoc::toConstraint {this} {
  143.     set label [$this getToConstraintLabel]
  144.     if [$label isNil] {
  145.         return ""
  146.     }
  147.     return [$label value]
  148. }
  149.  
  150. method CADBinaryAssoc::getQualifierLabel {this} {
  151.     return [$this getLabel 0 $LT_QUALIFIER]
  152. }
  153.  
  154. method CADBinaryAssoc::getQualifierItem {this} {
  155.     return [$this getItem 0 $LT_QUALIFIER $IT_DATA]
  156. }
  157.  
  158. method CADBinaryAssoc::getQualifierWorkItem {this} {
  159.     return [$this getWorkItem 0 $LT_QUALIFIER $IT_DATA]
  160. }
  161.  
  162. method CADBinaryAssoc::qualifier {this} {
  163.     set qualifierItem [$this getQualifierItem]        
  164.     if {[$qualifierItem isNil]} {
  165.         return ""
  166.     }
  167.     return [$qualifierItem name]
  168. }
  169.  
  170. # Do not delete this line -- regeneration end marker
  171.  
  172.