From 05dfd13e22a7a44277de18fbd818c73a9054c33f Mon Sep 17 00:00:00 2001 From: Antonio Linares Date: Fri, 7 Sep 2001 11:04:47 +0000 Subject: [PATCH] "T" Classes prefix changed into "HB" --- harbour/contrib/hgf/tests/form2.prg | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/harbour/contrib/hgf/tests/form2.prg b/harbour/contrib/hgf/tests/form2.prg index fa9a5cb6ef..b08585123d 100644 --- a/harbour/contrib/hgf/tests/form2.prg +++ b/harbour/contrib/hgf/tests/form2.prg @@ -1,19 +1,19 @@ // // $Id$ // -// Inheriting from Class TForm sample +// Inheriting from Class HBForm sample #include "hbclass.ch" function Main() - local oForm2 := TForm2():New() + local oForm2 := HBForm2():New() oForm2:ShowModal() return nil -CLASS TForm2 FROM TForm +CLASS HBForm2 FROM HBForm METHOD New() @@ -22,7 +22,7 @@ CLASS TForm2 FROM TForm ENDCLASS -METHOD New() CLASS TForm2 +METHOD New() CLASS HBForm2 local oMenu, oMenuItem @@ -30,15 +30,15 @@ METHOD New() CLASS TForm2 ::Caption = "Harbour GUI demo" - oMenu = TMenu():New( Self ) + oMenu = HBMenu():New( Self ) - oMenuItem = TMenuItem():New( oMenu ) + oMenuItem = HBMenuItem():New( oMenu ) oMenuitem:Caption = "Test" oMenuitem:Name = "Test" oMenuItem:OnClick = "TestClick" // The container method to execute oMenu:Add( oMenuItem ) - oMenuItem = TMenuItem():New( oMenu ) + oMenuItem = HBMenuItem():New( oMenu ) oMenuitem:Caption = "Exit" oMenuitem:Name = "Exit" oMenuItem:OnClick = "ExitClick" // The container method to execute @@ -48,7 +48,7 @@ METHOD New() CLASS TForm2 return Self -METHOD TestClick( oSender ) CLASS TForm2 +METHOD TestClick( oSender ) CLASS HBForm2 MsgInfo( "This event has been fired by a " + oSender:ClassName() + " object",; "Welcome to Harbour GUI power" )