home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / komix / DATA.Z / cadbinarya.tcl < prev    next >
Encoding:
Text File  |  1996-06-11  |  3.4 KB  |  144 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cadre Technologies Inc.    1996
  4. #
  5. #      File:           @(#)cadbinarya.tcl    /main/2
  6. #      Author:         <generated>
  7. #      Description:
  8. #---------------------------------------------------------------------------
  9. # SccsId = @(#)cadbinarya.tcl    /main/2   11 Jun 1996 Copyright 1996 Cadre Technologies 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 getToRoleLabel
  29.     method getToRoleItem
  30.     method getToRoleWorkItem
  31.     method toRole
  32.     method getQualifierLabel
  33.     method getQualifierItem
  34.     method getQualifierWorkItem
  35.     method qualifier
  36.     attribute toClass
  37.     attribute fromClass
  38. }
  39.  
  40. constructor CADBinaryAssoc {class this inModel} {
  41.     set this [CADAssociation::constructor $class $this $inModel]
  42.     # Start constructor user section
  43.     # End constructor user section
  44.     return $this
  45. }
  46.  
  47. method CADBinaryAssoc::destructor {this} {
  48.     # Start destructor user section
  49.     # End destructor user section
  50.     $this CADAssociation::destructor
  51. }
  52.  
  53. method CADBinaryAssoc::load {this} {
  54.     if {[$this loaded] == 1} {
  55.         return
  56.     }
  57.     $this loaded 1
  58.     $this fromClass [$this getFrom $OMT_CAD_CB_Class]
  59.     $this toClass [$this getTo $OMT_CAD_CB_Class]
  60. }
  61.  
  62. method CADBinaryAssoc::getNameLabel {this} {
  63.     return [$this getLabel]
  64. }
  65.  
  66. method CADBinaryAssoc::getNameItem {this} {
  67.     return [$this getItem]
  68. }
  69.  
  70. method CADBinaryAssoc::getNameWorkItem {this} {
  71.     return [$this getWorkItem]
  72. }
  73.  
  74. method CADBinaryAssoc::name {this} {
  75.     set nameItem [$this getNameItem]
  76.     if {[$nameItem isNil]} {
  77.         return ""
  78.     }
  79.     return [$nameItem name]
  80. }
  81.  
  82. method CADBinaryAssoc::getFromRoleLabel {this} {
  83.     return [$this getLabel 0 $LT_ROLE_AT_START]
  84. }
  85.  
  86. method CADBinaryAssoc::getFromRoleItem {this} {
  87.     return [$this getItem 0 $LT_ROLE_AT_START $IT_DATA]
  88. }
  89.  
  90. method CADBinaryAssoc::getFromRoleWorkItem {this} {
  91.     return [$this getWorkItem 0 $LT_ROLE_AT_START $IT_DATA]
  92. }
  93.  
  94. method CADBinaryAssoc::fromRole {this} {
  95.     set fromRoleItem [$this getFromRoleItem]        
  96.     if {[$fromRoleItem isNil]} {
  97.         return ""
  98.     }
  99.     return [$fromRoleItem name]
  100. }
  101.  
  102. method CADBinaryAssoc::getToRoleLabel {this} {
  103.     return [$this getLabel 0 $LT_ROLE_AT_END]
  104. }
  105.  
  106. method CADBinaryAssoc::getToRoleItem {this} {
  107.     return [$this getItem 0 $LT_ROLE_AT_END $IT_DATA]
  108. }
  109.  
  110. method CADBinaryAssoc::getToRoleWorkItem {this} {
  111.     return [$this getWorkItem 0 $LT_ROLE_AT_END $IT_DATA]
  112. }
  113.  
  114. method CADBinaryAssoc::toRole {this} {
  115.     set toRoleItem [$this getToRoleItem]        
  116.     if {[$toRoleItem isNil]} {
  117.         return ""
  118.     }
  119.     return [$toRoleItem name]
  120. }
  121.  
  122. method CADBinaryAssoc::getQualifierLabel {this} {
  123.     return [$this getLabel 0 $LT_QUALIFIER]
  124. }
  125.  
  126. method CADBinaryAssoc::getQualifierItem {this} {
  127.     return [$this getItem 0 $LT_QUALIFIER $IT_DATA]
  128. }
  129.  
  130. method CADBinaryAssoc::getQualifierWorkItem {this} {
  131.     return [$this getWorkItem 0 $LT_QUALIFIER $IT_DATA]
  132. }
  133.  
  134. method CADBinaryAssoc::qualifier {this} {
  135.     set qualifierItem [$this getQualifierItem]        
  136.     if {[$qualifierItem isNil]} {
  137.         return ""
  138.     }
  139.     return [$qualifierItem name]
  140. }
  141.  
  142. # Do not delete this line -- regeneration end marker
  143.  
  144.