Use of persistence files to build a form

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