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