form OnClick property tested ok

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