diff --git a/harbour/contrib/hgf/tests/form3.prg b/harbour/contrib/hgf/tests/form3.prg new file mode 100644 index 0000000000..d9da5b2720 --- /dev/null +++ b/harbour/contrib/hgf/tests/form3.prg @@ -0,0 +1,29 @@ +// +// $Id$ +// +// Use of persistence files to build a form + +#include "hbclass.ch" +#include "hbpers.ch" + +function Main() + + local oForm3 := TForm3():New() + + oForm3:ShowModal() + +return nil + +CLASS TForm3 FROM TForm + + METHOD New() + +ENDCLASS + +METHOD New() CLASS TForm3 + + Super:New() + + #include "form3.hbf" // Notice this is just a persistence ascii file + // renamed as .hbf = Harbour form +return Self \ No newline at end of file