fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
Antonio Linares
1999-12-15 12:52:14 +00:00
parent c0f8b1e1ff
commit 97751c140c
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
harbour/tests/testcls.prg
View File

@@ -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 )