From 26101379ab4795bd7440d409dfca4c4404a84c8d Mon Sep 17 00:00:00 2001
From: Antonio Linares <alinares@fivetechsoft.com>
Date: Wed, 5 Sep 2001 05:07:16 +0000
Subject: [PATCH] form OnClick property tested ok

---
 harbour/contrib/hgf/tests/formtext.prg | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/harbour/contrib/hgf/tests/formtext.prg b/harbour/contrib/hgf/tests/formtext.prg
index 9277bbeefd..41ba4e99cf 100644
--- a/harbour/contrib/hgf/tests/formtext.prg
+++ b/harbour/contrib/hgf/tests/formtext.prg
@@ -9,6 +9,8 @@ function Main()
 
    local oForm2 := TForm2():New()
 
+   oForm2:OnClick = "Form2Click"
+
    oForm2:ShowModal()
 
 return nil
@@ -20,6 +22,8 @@ CLASS TForm2 FROM TForm
    METHOD ViewAsTextClick( oSender )
    METHOD ExitClick( oSender ) INLINE ::Close()
 
+   METHOD Form2Click( oSender, nXPos, nYPos )
+
 ENDCLASS
 
 METHOD New() CLASS TForm2
@@ -53,4 +57,11 @@ METHOD ViewAsTextClick( oSender ) CLASS TForm2
 
    MsgInfo( ::SaveToText() )
 
+return nil
+
+METHOD Form2Click( oSender, nXPos, nYPos ) CLASS TForm2
+
+   MsgInfo( "Click at " + AllTrim( Str( nXPos ) ) + ", " + ;
+            AllTrim( Str( nYPos ) ) )
+
 return nil
\ No newline at end of file