From fb52a61cc644de0a8c0022ef25fa7b6aff58723c Mon Sep 17 00:00:00 2001 From: Pritpal Bedi Date: Wed, 24 Jun 2009 15:46:13 +0000 Subject: [PATCH] 2009-06-24 08:40 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com) * harbour/contrib/hbqt/Makefile_gen * harbour/contrib/hbqt/hbqt_qapplication.cpp * harbour/contrib/hbqt/qth/QApplication.qth + harbour/contrib/hbqt/TQApplication.prg + Added QApplication() PRG level class. Only one instance of application is ever activated but its members can be accessed/assigned as QApplication():new():setStyle( ... ) --- harbour/ChangeLog | 9 +++ harbour/contrib/hbqt/Makefile_gen | 1 + harbour/contrib/hbqt/TQApplication.prg | 91 ++++++++++++++++++++++ harbour/contrib/hbqt/hbqt_qapplication.cpp | 1 + harbour/contrib/hbqt/qth/QApplication.qth | 5 +- 5 files changed, 106 insertions(+), 1 deletion(-) create mode 100644 harbour/contrib/hbqt/TQApplication.prg diff --git a/harbour/ChangeLog b/harbour/ChangeLog index ad1c8b52c6..ba7b9e39cc 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -17,6 +17,15 @@ past entries belonging to author(s): Viktor Szakats. */ +2009-06-24 08:40 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com) + * harbour/contrib/hbqt/Makefile_gen + * harbour/contrib/hbqt/hbqt_qapplication.cpp + * harbour/contrib/hbqt/qth/QApplication.qth + + harbour/contrib/hbqt/TQApplication.prg + + Added QApplication() PRG level class. Only one instance of + application is ever activated but its members can be accessed/assigned + as QApplication():new():setStyle( ... ) + 2009-06-24 17:40 UTC+0200 Viktor Szakats (harbour.01 syenar.hu) * contrib/gtwvg/wvgcuig.c * contrib/gtwvg/wvgutils.c diff --git a/harbour/contrib/hbqt/Makefile_gen b/harbour/contrib/hbqt/Makefile_gen index 99b2134291..f9519856fa 100644 --- a/harbour/contrib/hbqt/Makefile_gen +++ b/harbour/contrib/hbqt/Makefile_gen @@ -228,6 +228,7 @@ PRG_SOURCES=\ TQAbstractSpinBox.prg \ TQAbstractTableModel.prg \ TQAction.prg \ + TQApplication.prg \ TQBitmap.prg \ TQBoxLayout.prg \ TQBrush.prg \ diff --git a/harbour/contrib/hbqt/TQApplication.prg b/harbour/contrib/hbqt/TQApplication.prg new file mode 100644 index 0000000000..983ac49174 --- /dev/null +++ b/harbour/contrib/hbqt/TQApplication.prg @@ -0,0 +1,91 @@ +/* + * $Id$ + */ + +/* + * Harbour Project source code: + * QT wrapper main header + * + * Copyright 2009 Marcos Antonio Gambeta + * Copyright 2009 Pritpal Bedi + * 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 "hbclass.ch" + + +CREATE CLASS QApplication + + VAR pParent + VAR pPtr + + METHOD New() + + METHOD commitData( pManager ) INLINE Qt_QApplication_commitData( ::pPtr, pManager ) + METHOD inputContext() INLINE Qt_QApplication_inputContext( ::pPtr ) + METHOD isSessionRestored() INLINE Qt_QApplication_isSessionRestored( ::pPtr ) + METHOD saveState( pManager ) INLINE Qt_QApplication_saveState( ::pPtr, pManager ) + METHOD sessionId() INLINE Qt_QApplication_sessionId( ::pPtr ) + METHOD sessionKey() INLINE Qt_QApplication_sessionKey( ::pPtr ) + METHOD setInputContext( pInputContext ) INLINE Qt_QApplication_setInputContext( ::pPtr, pInputContext ) + METHOD styleSheet() INLINE Qt_QApplication_styleSheet( ::pPtr ) + METHOD aboutQt() INLINE Qt_QApplication_aboutQt( ::pPtr ) + METHOD closeAllWindows() INLINE Qt_QApplication_closeAllWindows( ::pPtr ) + METHOD setStyleSheet( cSheet ) INLINE Qt_QApplication_setStyleSheet( ::pPtr, cSheet ) + + ENDCLASS + +/*----------------------------------------------------------------------*/ + +METHOD New( pParent ) CLASS QApplication + + ::pParent := pParent + + ::pPtr := Qt_QApplication( pParent ) + + RETURN Self + +/*----------------------------------------------------------------------*/ + diff --git a/harbour/contrib/hbqt/hbqt_qapplication.cpp b/harbour/contrib/hbqt/hbqt_qapplication.cpp index c29b81f9a0..f55288734d 100644 --- a/harbour/contrib/hbqt/hbqt_qapplication.cpp +++ b/harbour/contrib/hbqt/hbqt_qapplication.cpp @@ -260,3 +260,4 @@ HB_FUNC( QT_QAPPLICATION_SETSTYLESHEET ) /*----------------------------------------------------------------------*/ #endif /* #if QT_VERSION >= 0x040500 */ /*----------------------------------------------------------------------*/ + diff --git a/harbour/contrib/hbqt/qth/QApplication.qth b/harbour/contrib/hbqt/qth/QApplication.qth index 50beef95dc..643fe7418d 100644 --- a/harbour/contrib/hbqt/qth/QApplication.qth +++ b/harbour/contrib/hbqt/qth/QApplication.qth @@ -53,7 +53,10 @@ ; ; Header File to Generate QT Wrapper Sources ; - + +Inherit = +New = +