home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / m_import.tcl < prev    next >
Encoding:
Text File  |  1997-10-06  |  1.5 KB  |  58 lines
  1. #---------------------------------------------------------------------------
  2. # 
  3. # Copyright (c) 1997 by Cayenne Software, Inc.
  4. # 
  5. # This software is furnished under a license and may be used only in
  6. # accordance with the terms of such license and with the inclusion of
  7. # the above copyright notice. This software or any other copies thereof
  8. # may not be provided or otherwise made available to any other person.
  9. # No title to and ownership of the software is hereby transferred.
  10. # 
  11. # The information in this software is subject to change without notice
  12. # and should not be construed as a commitment by Cayenne Software, Inc.
  13. # 
  14. #---------------------------------------------------------------------------
  15.  
  16. puts "*** cpp-accmethd loaded ***"
  17.  
  18. require "cgcustom.tcl"
  19.  
  20. Class AccMethodNameCust : [customizeTargetModel CppAccMethod AccMethodNameCust] {
  21.     method getMethodName
  22. }
  23.  
  24. method AccMethodNameCust::getMethodName {this kind name} {
  25.  
  26.     switch $kind {
  27.         attrib-get {
  28.             set fullName "get_${name}"
  29.         }
  30.         attrib-set {
  31.             set fullName "set_${name}"
  32.         }
  33.         assoc-get {
  34.             set fullName "get_${name}"
  35.         }
  36.         assoc-get-set {
  37.             set fullName "get_${name}_set"
  38.         }
  39.         assoc-set {
  40.             set fullName "set_${name}"
  41.         }
  42.         assoc-add {
  43.             set fullName "add_${name}"
  44.         }
  45.         assoc-remove {
  46.             set fullName "remove_${name}"
  47.         }
  48.         default {
  49.             return [$this ${AccMethodNameCust::super}::getMethodName $kind $name]
  50.         }
  51.     }
  52.     return $fullName
  53. }
  54.  
  55. selfPromoter CppAccMethod {this} {
  56.     AccMethodNameCust promote $this
  57. }
  58.