From 177c4bb36bdcfe6776415a480b46e3eaa92b5877 Mon Sep 17 00:00:00 2001 From: Antonio Linares Date: Sat, 1 Sep 2001 15:30:41 +0000 Subject: [PATCH] some minor fixes --- harbour/contrib/hgf/tests/testform.prg | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/harbour/contrib/hgf/tests/testform.prg b/harbour/contrib/hgf/tests/testform.prg index f4d409ee9a..e7b5bc9b32 100644 --- a/harbour/contrib/hgf/tests/testform.prg +++ b/harbour/contrib/hgf/tests/testform.prg @@ -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 )