From 39f7128798bdbee979851fd8da8dbc4928cbb79d Mon Sep 17 00:00:00 2001 From: Antonio Linares Date: Wed, 5 Sep 2001 06:57:44 +0000 Subject: [PATCH] Use of persistence files to build a form --- harbour/contrib/hgf/tests/form3.prg | 29 +++++++++++++++++++++++++++++ 1 file changed, 29 insertions(+) create mode 100644 harbour/contrib/hgf/tests/form3.prg 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