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