From 97751c140c1d88b6e28d95423e33d96f484f2d74 Mon Sep 17 00:00:00 2001 From: Antonio Linares Date: Wed, 15 Dec 1999 12:52:14 +0000 Subject: [PATCH] *** empty log message *** --- harbour/tests/testcls.prg | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/harbour/tests/testcls.prg b/harbour/tests/testcls.prg index 381a059160..a8a6be8e35 100644 --- a/harbour/tests/testcls.prg +++ b/harbour/tests/testcls.prg @@ -6,20 +6,20 @@ function Main() local o := Test() - o:Any( "Hello" ) // Any message is not defined for Class Test, but - // it will invoke ON ERROR Any() method + o:Another( "Hello" ) // Any message is not defined for Class Test, but + // it will invoke ON ERROR Any() method - o:Any = 5 // Notice how __GetMessage() shows a underscored message - // as we are setting a DATA value. + o:Another = 5 // Notice how __GetMessage() shows a underscored message + // as we are setting a DATA value. return nil CLASS Test - ON ERROR Any( uParam1 ) + ON ERROR MyErrorManager( uParam1 ) ENDCLASS -METHOD Any( uParam1 ) CLASS Test +METHOD MyErrorManager( uParam1 ) CLASS Test if PCount() > 0 Alert( uParam1 )