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

tmenu.prg renamed as menu.prg

Browse Source
This commit is contained in:
Antonio Linares
2001-09-07 10:36:26 +00:00
parent c90febbf48
commit 48b9bac2e6
1 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
harbour/contrib/hgf/win32/tmenu.prg → harbour/contrib/hgf/win32/menu.prg
View File

@@ -5,6 +5,7 @@
/*
* Harbour Project source code:
* Harbour GUI framework for Win32
* Class HBMenu
*
* Copyright 2001 Antonio Linares <alinares@fivetech.com>
* Copyright 2001 Maurilio Longo <maurilio.longo@libero.it>
@@ -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