home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / fortexprom.tcl < prev    next >
Text File  |  1997-09-11  |  3KB  |  116 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Cayenne Software Inc.    1997
  4. #
  5. #      File:           @(#)fortexprom.tcl    /main/titanic/1
  6. #      Author:         heli
  7. #      Description:    extra selfpromoters for DB classes in Forte
  8. #---------------------------------------------------------------------------
  9. # @(#)fortexprom.tcl    /main/titanic/1 11 Sep 1997 Copyright 1997 Cayenne Software Inc.
  10.  
  11. global mostDerivedOOPL
  12.  
  13.  
  14. if [isCommand CMDatabaseClass] {
  15.     Class FTGDatabaseClassD : {FTGClass CMDatabaseClass} {
  16.     }
  17. } else {
  18.     Class FTGDatabaseClassD : {FTGClass OPDatabaseClass} {
  19.     }
  20. }
  21. set mostDerivedOOPL(OPDatabaseClass) FTGDatabaseClassD
  22. selfPromoter OPDatabaseClass {this} {
  23.     FTGDatabaseClassD promote $this
  24. }
  25.  
  26.  
  27. if [isCommand CMDBLinkClass] {
  28.     Class FTGDBLinkClassD : {FTGLinkClass CMDBLinkClass} {
  29.     }
  30. } else {
  31.     Class FTGDBLinkClassD : {FTGLinkClass OPDBLinkClass} {
  32.     }
  33. }
  34. set mostDerivedOOPL(OPDBLinkClass) FTGDBLinkClassD
  35. selfPromoter OPDBLinkClass {this} {
  36.     FTGDBLinkClassD promote $this
  37. }
  38.  
  39.  
  40. if [isCommand CMDBDataAttr] {
  41.     Class FTGDBDataAttrD : {FTGDataAttr CMDBDataAttr} {
  42.     }
  43. } else {
  44.     Class FTGDBDataAttrD : {FTGDataAttr OPDBDataAttr} {
  45.     }
  46. }
  47. set mostDerivedOOPL(OPDBDataAttr) FTGDBDataAttrD
  48. selfPromoter OPDBDataAttr {this} {
  49.     FTGDBDataAttrD promote $this
  50. }
  51.  
  52.  
  53. if [isCommand CMDBAssocAttr] {
  54.     Class FTGDBAssocAttrD : {FTGAssocAttr CMDBAssocAttr} {
  55.     }
  56. } else {
  57.     Class FTGDBAssocAttrD : {FTGAssocAttr OPDBAssocAttr} {
  58.     }
  59. }
  60. set mostDerivedOOPL(OPDBAssocAttr) FTGDBAssocAttrD
  61. selfPromoter OPDBAssocAttr {this} {
  62.     FTGDBAssocAttrD promote $this
  63. }
  64.  
  65.  
  66. if [isCommand CMDBLinkAttr] {
  67.     Class FTGDBLinkAttrD : {FTGLinkAttr CMDBLinkAttr} {
  68.     }
  69. } else {
  70.     Class FTGDBLinkAttrD : {FTGLinkAttr OPDBLinkAttr} {
  71.     }
  72. }
  73. set mostDerivedOOPL(OPDBLinkAttr) FTGDBLinkAttrD
  74. selfPromoter OPDBLinkAttr {this} {
  75.     FTGDBLinkAttrD promote $this
  76. }
  77.  
  78.  
  79. if [isCommand CMDBReverseLinkAttr] {
  80.     Class FTGDBReverseLinkAttrD : {FTGReverseLinkAttr CMDBReverseLinkAttr} {
  81.     }
  82. } else {
  83.     Class FTGDBReverseLinkAttrD : {FTGReverseLinkAttr OPDBReverseLinkAttr} {
  84.     }
  85. }
  86. set mostDerivedOOPL(OPDBReverseLinkAttr) FTGDBReverseLinkAttrD
  87. selfPromoter OPDBReverseLinkAttr {this} {
  88.     FTGDBReverseLinkAttrD promote $this
  89. }
  90.  
  91.  
  92. if [isCommand CMDBQualAssocAttr] {
  93.     Class FTGDBQualAssocAttrD : {FTGQualAssocAttr CMDBQualAssocAttr} {
  94.     }
  95. } else {
  96.     Class FTGDBQualAssocAttrD : {FTGQualAssocAttr OPDBQualAssocAttr} {
  97.     }
  98. }
  99. set mostDerivedOOPL(OPDBQualAssocAttr) FTGDBQualAssocAttrD
  100. selfPromoter OPDBQualAssocAttr {this} {
  101.     FTGDBQualAssocAttrD promote $this
  102. }
  103.  
  104.  
  105. if [isCommand CMDBQualLinkAttr] {
  106.     Class FTGDBQualLinkAttrD : {FTGQualLinkAttr CMDBQualLinkAttr} {
  107.     }
  108. } else {
  109.     Class FTGDBQualLinkAttrD : {FTGQualLinkAttr OPDBQualLinkAttr} {
  110.     }
  111. }
  112. set mostDerivedOOPL(OPDBQualLinkAttr) FTGDBQualLinkAttrD
  113. selfPromoter OPDBQualLinkAttr {this} {
  114.     FTGDBQualLinkAttrD promote $this
  115. }
  116.