From f281ce7ecbca5c498ca280101cde486e67bea8c3 Mon Sep 17 00:00:00 2001 From: Antonio Linares Date: Wed, 5 Sep 2001 09:52:40 +0000 Subject: [PATCH] Some minor changes --- harbour/contrib/hgf/tests/formtext.prg | 1 - harbour/contrib/hgf/tests/testform.prg | 18 +++++++++--------- 2 files changed, 9 insertions(+), 10 deletions(-) diff --git a/harbour/contrib/hgf/tests/formtext.prg b/harbour/contrib/hgf/tests/formtext.prg index 41ba4e99cf..4402fc5463 100644 --- a/harbour/contrib/hgf/tests/formtext.prg +++ b/harbour/contrib/hgf/tests/formtext.prg @@ -32,7 +32,6 @@ METHOD New() CLASS TForm2 Super:New() - ::cName = "oForm2" ::Caption = "Harbour GUI demo" oMenu = TMenu():New( Self ) diff --git a/harbour/contrib/hgf/tests/testform.prg b/harbour/contrib/hgf/tests/testform.prg index e7b5bc9b32..312da90fde 100644 --- a/harbour/contrib/hgf/tests/testform.prg +++ b/harbour/contrib/hgf/tests/testform.prg @@ -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()