2001-05-21 21:35 UTC+1 JFL (mafact) <jfl@mafact.com>

harbour/ChangeLog

@@ -1,3 +1,9 @@
+2001-05-21 21:35 UTC+1 JFL (mafact) <jfl@mafact.com>
+   * harbour/source/vm/Proc.c
+     + MethodName(nLevel) ==> Same as ProcName(nLevel)
+   * harbour/include/hbclass.ch
+     - delete xTranslate 'MethodName' 
+
 2001-05-21 14:30 UTC-0400 David G. Holm <dholm@jsd-llc.com>
 
   * source/rtl/tget.prg

harbour/include/hbclass.ch

@@ -144,7 +144,6 @@ DECLARE TClass ;
 /* CLASSY SYNTAX */
 #IFDEF HB_CLS_CSY
 #xtranslate CREATE CLASS => CLASS
-#xtranslate METHODNAME => PROCNAME
 #endif
 
 #ifndef HB_SHORTNAMES

harbour/source/vm/proc.c

@@ -64,6 +64,13 @@
 #include "hbapi.h"
 #include "hbstack.h"
 
+HB_FUNC( METHODNAME )
+{
+   char szName[ HB_SYMBOL_NAME_LEN + HB_SYMBOL_NAME_LEN + 2 ];
+
+   hb_retc( hb_procname( hb_parni( 1 ) + 1, szName ) );
+}
+
 HB_FUNC( PROCNAME )
 {
    char szName[ HB_SYMBOL_NAME_LEN + HB_SYMBOL_NAME_LEN + 2 ];