home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / rt_getset.tcl < prev    next >
Text File  |  1997-10-06  |  435b  |  25 lines
  1. global hasGetSetMethod
  2. set hasGetSetMethod 1
  3.  
  4. global attribAccessPropName
  5. set attribAccessPropName "attrib_access"
  6.  
  7. global methodAccessPropName
  8. set methodAccessPropName "method_access"
  9.  
  10. proc isGetMethod {mthd attr} {
  11.     if {"get_[$attr name]" == [$mthd name]} {
  12.         return 1
  13.     } else {
  14.         return 0
  15.     }
  16. }
  17.  
  18. proc isSetMethod {mthd attr} {
  19.     if {"set_[$attr name]" == [$mthd name] } {
  20.         return 1
  21.     } else {
  22.         return 0
  23.     }
  24. }
  25.