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

Some minor changes

Browse Source
This commit is contained in:
Antonio Linares
2001-09-05 09:52:40 +00:00
parent 6e9cf7a5a6
commit f281ce7ecb
2 changed files with 9 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
harbour/contrib/hgf/tests/formtext.prg
View File

@@ -32,7 +32,6 @@ METHOD New() CLASS TForm2
Super:New()
::cName = "oForm2"
::Caption = "Harbour GUI demo"
oMenu = TMenu():New( Self )

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

@@ -11,36 +11,36 @@ function Main()
local oMenuItem, oSubItem, oSubItem2
oMenuItem = TMenuItem():New( oMenu )
oMenuItem:cCaption = "One"
oMenuItem:Caption = "One"
oMenu:Add( oMenuItem )
oSubItem = TMenuItem():New( oMenuItem )
oSubItem:cCaption = "First"
oSubItem:Caption = "First"
oMenuItem:Add( oSubItem )
oSubItem = TMenuItem():New( oMenuItem )
oSubItem:cCaption = "Second"
oSubItem:Caption = "Second"
oMenuItem:Add( oSubItem )
oSubItem2 = TMenuItem():New( oSubItem )
oSubItem2:cCaption = "Some"
oSubItem2:Caption = "Some"
oSubItem:Add( oSubItem2 )
oSubItem2 = TMenuItem():New( oSubItem )
oSubItem2:cCaption = "More"
oSubItem2:Caption = "More"
oSubItem:Add( oSubItem2 )
oMenuItem = TMenuItem():New( oMenu )
oMenuItem:cCaption = "Two"
oMenuItem:Caption = "Two"
oMenu:Add( oMenuItem )
oMenuItem = TMenuItem():New( oMenu )
oMenuItem:cCaption = "Three"
oMenuItem:Caption = "Three"
oMenu:Add( oMenuItem )
oForm:oMenu = oMenu
oForm:Menu = oMenu
oForm:cCaption = "Harbour GUI Framework"
oForm:Caption = "Harbour GUI Framework"
oForm:ShowModal()