461ea1568f
- contrib/examples
+ examples
* doc/dirstruc.txt
* doc/whatsnew.txt
* examples/hbdoc/Makefile
* examples/pp/Makefile
* examples/hboleold/Makefile
* examples/hbsqlit2/Makefile
* examples/misc/Makefile
* examples/hbapollo/Makefile
* examples/rdddbt/Makefile
* examples/guestbk/Makefile
* examples/pe/Makefile
* examples/hbgf/hbgfwin/Makefile
* examples/hbgf/hbgfos2/Makefile
* examples/hbgf/hbgfgtk/Makefile
* examples/hbgf/Makefile
* examples/uhttpd/readme.txt
* examples/dbu/Makefile
* examples/hscript/Makefile
* examples/hbwhat/Makefile
* examples/rl/Makefile
* examples/Makefile
* Moved to flatten our dir layout and sync the locations
in unified distro and source tree.
; TODO: As a next step I'll replace Makefiles with .hbm
files. This will allow users to build these parts
outside the source distribution.
32 lines
497 B
Plaintext
32 lines
497 B
Plaintext
//
|
|
// $Id$
|
|
//
|
|
// Use of persistence files to build a form
|
|
|
|
#include "hbclass.ch"
|
|
#include "hbpers.ch"
|
|
|
|
function Main()
|
|
|
|
local oForm3 := HBForm3():New()
|
|
|
|
oForm3:ShowModal()
|
|
|
|
return nil
|
|
|
|
CLASS HBForm3 FROM HBForm
|
|
|
|
METHOD New()
|
|
|
|
METHOD FormClick( oSender, nX, nY ) INLINE MsgInfo( "Click" )
|
|
|
|
ENDCLASS
|
|
|
|
METHOD New() CLASS HBForm3
|
|
|
|
Super:New()
|
|
|
|
#include "form3.hbf" // Notice this is just a persistence ascii file
|
|
// renamed as .hbf = Harbour form
|
|
return Self
|