From 48b9bac2e6cb82d41b5db6a402630422e86f517e Mon Sep 17 00:00:00 2001 From: Antonio Linares Date: Fri, 7 Sep 2001 10:36:26 +0000 Subject: [PATCH] tmenu.prg renamed as menu.prg --- harbour/contrib/hgf/win32/{tmenu.prg => menu.prg} | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) rename harbour/contrib/hgf/win32/{tmenu.prg => menu.prg} (94%) diff --git a/harbour/contrib/hgf/win32/tmenu.prg b/harbour/contrib/hgf/win32/menu.prg similarity index 94% rename from harbour/contrib/hgf/win32/tmenu.prg rename to harbour/contrib/hgf/win32/menu.prg index 0e7d6d8657..5cfdddc7a0 100644 --- a/harbour/contrib/hgf/win32/tmenu.prg +++ b/harbour/contrib/hgf/win32/menu.prg @@ -5,6 +5,7 @@ /* * Harbour Project source code: * Harbour GUI framework for Win32 + * Class HBMenu * * Copyright 2001 Antonio Linares * Copyright 2001 Maurilio Longo @@ -53,7 +54,7 @@ #include "hbclass.ch" -CLASS TMenu FROM HBPersistent +CLASS HBMenu FROM HBPersistent DATA nHandle DATA Items PROPERTY @@ -64,7 +65,7 @@ CLASS TMenu FROM HBPersistent ENDCLASS -METHOD New( oForm ) CLASS TMenu +METHOD New( oForm ) CLASS HBMenu ::Items = {} @@ -74,7 +75,7 @@ METHOD New( oForm ) CLASS TMenu return Self -METHOD Add( oMenuItem ) CLASS TMenu +METHOD Add( oMenuItem ) CLASS HBMenu WinAddMenuItem( ::nHandle, oMenuItem:Caption, Len( ::Items ),; nil, oMenuItem:nId, oMenuItem:Enabled ) @@ -84,7 +85,7 @@ METHOD Add( oMenuItem ) CLASS TMenu return nil -METHOD FindItem( nId ) CLASS TMenu +METHOD FindItem( nId ) CLASS HBMenu local oMenuItem, n