Added OnClick assignment test

2001-09-06 12:51:07 +00:00
parent 639c9d7743
commit 4e19b82102
1 changed files with 2 additions and 0 deletions
--- a/harbour/contrib/hgf/tests/form3.prg
+++ b/harbour/contrib/hgf/tests/form3.prg
@@ -18,6 +18,8 @@ CLASS TForm3 FROM TForm

   METHOD New()

+   METHOD FormClick( oSender, nX, nY ) INLINE MsgInfo( "Click" )
+
 ENDCLASS

 METHOD New() CLASS TForm3