From b2cd85ad39bdf87c2d668f3fa23e0d87ad818698 Mon Sep 17 00:00:00 2001 From: Antonio Linares Date: Wed, 5 Sep 2001 10:09:46 +0000 Subject: [PATCH] this file has been renamed as menuitem.prg --- harbour/contrib/hgf/win32/tmenuitm.prg | 116 ------------------------- 1 file changed, 116 deletions(-) delete mode 100644 harbour/contrib/hgf/win32/tmenuitm.prg diff --git a/harbour/contrib/hgf/win32/tmenuitm.prg b/harbour/contrib/hgf/win32/tmenuitm.prg deleted file mode 100644 index 8fefa16f56..0000000000 --- a/harbour/contrib/hgf/win32/tmenuitm.prg +++ /dev/null @@ -1,116 +0,0 @@ -/* - * $Id$ - */ - -/* - * Harbour Project source code: - * Harbour GUI framework for Win32 - * - * Copyright 2001 Antonio Linares - * www - http://www.harbour-project.org - * - * This program is free software; you can redistribute it and/or modify - * it under the terms of the GNU General Public License as published by - * the Free Software Foundation; either version 2, or (at your option) - * any later version. - * - * This program is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU General Public License for more details. - * - * You should have received a copy of the GNU General Public License - * along with this software; see the file COPYING. If not, write to - * the Free Software Foundation, Inc., 59 Temple Place, Suite 330, - * Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/). - * - * As a special exception, the Harbour Project gives permission for - * additional uses of the text contained in its release of Harbour. - * - * The exception is that, if you link the Harbour libraries with other - * files to produce an executable, this does not by itself cause the - * resulting executable to be covered by the GNU General Public License. - * Your use of that executable is in no way restricted on account of - * linking the Harbour library code into it. - * - * This exception does not however invalidate any other reasons why - * the executable file might be covered by the GNU General Public License. - * - * This exception applies only to the code released by the Harbour - * Project under the name Harbour. If you copy code from other - * Harbour Project or Free Software Foundation releases into a copy of - * Harbour, as the General Public License permits, the exception does - * not apply to the code that you add in this way. To avoid misleading - * anyone as to the status of such modified files, you must delete - * this exception notice from them. - * - * If you write modifications of your own for Harbour, it is your choice - * whether to permit this exception to apply to your modifications. - * If you do not wish that, delete this exception notice. - * - */ - - -#include "common.ch" -#include "hbclass.ch" - -CLASS TMenuItem - - DATA cCaption // Specifies the text of the menu item - DATA cName // The name of this component - DATA OnClick // A character description of the method to invoke - DATA nId // Command value to send to the container form - DATA lEnabled // Specifies whether the menu item is enabled - DATA aItems // Contains the menu items in the submenu of the menu item - DATA oParent // Identifies the parent menu item of this menu item - DATA nHandle // The handle of the submenu of this menu item - - CLASSDATA nIdStart // start value for commands value to assign to menu items - - METHOD New( oOwner ) // Creates a new menu item - METHOD Add( oMenuItem ) // Adds a new drop down menu item - METHOD FindItem( nId ) // Searches for a sub menuitem given its id - -ENDCLASS - -METHOD New( oOwner ) CLASS TMenuItem - - DEFAULT ::nIdStart TO 110 - - ::cCaption = "" - ::nId = ::nIdStart++ - ::lEnabled = .t. - ::oParent = oOwner - -return Self - -METHOD Add( oMenuItem ) CLASS TMenuItem - - DEFAULT ::aItems TO {} - DEFAULT ::nHandle TO WinCreateSubMenu( ::oParent:nHandle, ::nId ) - - WinAddMenuItem( ::nHandle, oMenuItem:cCaption, Len( ::aItems ),; - Nil, oMenuItem:nId, oMenuItem:lEnabled ) - - oMenuItem:oParent = Self - AAdd( ::aItems, oMenuItem ) - -return nil - -METHOD FindItem( nId ) CLASS TMenuItem - - local oMenuItem, n - - for n = 1 to Len( ::aItems ) - if ( oMenuItem := ::aItems[ n ] ):nId == nId - return oMenuItem - else - if oMenuItem:aItems != nil - if ( oMenuItem := oMenuItem:FindItem( nId ) ) != nil - return oMenuItem - endif - endif - endif - next - -return oMenuItem \ No newline at end of file