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.
48 lines
1013 B
Plaintext
48 lines
1013 B
Plaintext
//
|
|
// $Id$
|
|
//
|
|
|
|
// Testing Harbour GUI framework
|
|
|
|
function Main()
|
|
|
|
local oForm := HBForm():New()
|
|
local oMenu := HBMenu():New( oForm )
|
|
local oMenuItem, oSubItem, oSubItem2
|
|
|
|
oMenuItem := HGFMenuItem():New( oMenu )
|
|
oMenuItem:Caption := "One"
|
|
oMenu:Add( oMenuItem )
|
|
|
|
oSubItem := HGFMenuItem():New( oMenuItem )
|
|
oSubItem:Caption := "First"
|
|
oMenuItem:Add( oSubItem )
|
|
|
|
oSubItem := HGFMenuItem():New( oMenuItem )
|
|
oSubItem:Caption := "Second"
|
|
oMenuItem:Add( oSubItem )
|
|
|
|
oSubItem2 := HGFMenuItem():New( oSubItem )
|
|
oSubItem2:Caption := "Some"
|
|
oSubItem:Add( oSubItem2 )
|
|
|
|
oSubItem2 := HGFMenuItem():New( oSubItem )
|
|
oSubItem2:Caption := "More"
|
|
oSubItem:Add( oSubItem2 )
|
|
|
|
oMenuItem := HGFMenuItem():New( oMenu )
|
|
oMenuItem:Caption := "Two"
|
|
oMenu:Add( oMenuItem )
|
|
|
|
oMenuItem := HGFMenuItem():New( oMenu )
|
|
oMenuItem:Caption := "Three"
|
|
oMenu:Add( oMenuItem )
|
|
|
|
oForm:Menu := oMenu
|
|
|
|
oForm:Caption := "Harbour GUI Framework"
|
|
|
|
oForm:ShowModal()
|
|
|
|
return nil
|