fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

some minor fixes

Browse Source
This commit is contained in:
Antonio Linares
2001-09-01 15:30:41 +00:00
parent cfca085287
commit 177c4bb36b
1 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
harbour/contrib/hgf/tests/testform.prg
View File

@@ -10,31 +10,31 @@ function Main()
local oMenu := TMenu():New( oForm )
local oMenuItem, oSubItem, oSubItem2
oMenuItem = TMenuItem():New()
oMenuItem = TMenuItem():New( oMenu )
oMenuItem:cCaption = "One"
oMenu:Add( oMenuItem )
oSubItem = TMenuItem():New()
oSubItem = TMenuItem():New( oMenuItem )
oSubItem:cCaption = "First"
oMenuItem:Add( oSubItem )
oSubItem = TMenuItem():New()
oSubItem = TMenuItem():New( oMenuItem )
oSubItem:cCaption = "Second"
oMenuItem:Add( oSubItem )
oSubItem2 = TMenuItem():New()
oSubItem2 = TMenuItem():New( oSubItem )
oSubItem2:cCaption = "Some"
oSubItem:Add( oSubItem2 )
oSubItem2 = TMenuItem():New()
oSubItem2 = TMenuItem():New( oSubItem )
oSubItem2:cCaption = "More"
oSubItem:Add( oSubItem2 )
oMenuItem = TMenuItem():New()
oMenuItem = TMenuItem():New( oMenu )
oMenuItem:cCaption = "Two"
oMenu:Add( oMenuItem )
oMenuItem = TMenuItem():New()
oMenuItem = TMenuItem():New( oMenu )
oMenuItem:cCaption = "Three"
oMenu:Add( oMenuItem )