From 2b33c59989d15942a97996db069c29d6978e605b Mon Sep 17 00:00:00 2001 From: Pritpal Bedi Date: Tue, 10 Jul 2012 22:22:26 +0000 Subject: [PATCH] 2012-07-10 15:18 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com) * contrib/hbqt/hbmk2_qt.hb ! Added: destroy() method. * Changed: order of generated ui_* class methods plus some formatting. * contrib/hbqt/qtgui/hbqtgui.ch + Added: a few more constants. --- harbour/ChangeLog | 8 +++ harbour/contrib/hbqt/hbmk2_qt.hb | 74 ++++++++++++++------------- harbour/contrib/hbqt/qtgui/hbqtgui.ch | 4 ++ 3 files changed, 50 insertions(+), 36 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index f88a2d0c36..7e0a026206 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -16,6 +16,14 @@ The license applies to all entries newer than 2009-04-28. */ +2012-07-10 15:18 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com) + * contrib/hbqt/hbmk2_qt.hb + ! Added: destroy() method. + * Changed: order of generated ui_* class methods plus some formatting. + + * contrib/hbqt/qtgui/hbqtgui.ch + + Added: a few more constants. + 2012-07-10 20:23 UTC+0200 Viktor Szakats (harbour syenar.net) * src/rtl/alert.prg * src/rtl/typefile.prg diff --git a/harbour/contrib/hbqt/hbmk2_qt.hb b/harbour/contrib/hbqt/hbmk2_qt.hb index 7b45fee410..80a759d45a 100644 --- a/harbour/contrib/hbqt/hbmk2_qt.hb +++ b/harbour/contrib/hbqt/hbmk2_qt.hb @@ -713,10 +713,10 @@ STATIC FUNCTION hbqtui_gen_prg( cFile, cFuncName ) AAdd( aLinesPRG, '#include "hbqtgui.ch"' ) AAdd( aLinesPRG, '#include "hbclass.ch"' ) AAdd( aLinesPRG, '#include "error.ch"' ) - AAdd( aLinesPRG, "" ) - AAdd( aLinesPRG, "FUNCTION " + cFuncName + "( qParent )" ) - AAdd( aLinesPRG, " RETURN " + StrTran( cFuncName, "hbqtui_", "ui_" ) + "():new( qParent )" ) + AAdd( aLinesPRG, "" ) + AAdd( aLinesPRG, "FUNCTION " + cFuncName + "( oParent )" ) + AAdd( aLinesPRG, " RETURN " + StrTran( cFuncName, "hbqtui_", "ui_" ) + "():new( oParent )" ) AAdd( aLinesPRG, "" ) hbqtui_buildClassCode( cFuncName, cMCls, aWidgets, aCommands, aLinesPRG ) @@ -738,44 +738,13 @@ STATIC FUNCTION hbqtui_buildClassCode( cFuncName, cMCls, aWidgets, aCommands, aL NEXT AAdd( aLinesPRG, "" ) AAdd( aLinesPRG, " METHOD init( oParent )" ) + AAdd( aLinesPRG, " METHOD destroy() INLINE ::oWidget:setParent( QWidget() )" ) + AAdd( aLinesPRG, "" ) AAdd( aLinesPRG, " ERROR HANDLER __OnError( ... )" ) AAdd( aLinesPRG, "" ) AAdd( aLinesPRG, " ENDCLASS" ) AAdd( aLinesPRG, "" ) AAdd( aLinesPRG, "" ) - AAdd( aLinesPRG, 'METHOD ' + cClass + ':__OnError( ... )' ) - AAdd( aLinesPRG, ' LOCAL cMsg := __GetMessage()' ) - AAdd( aLinesPRG, ' LOCAL oError' ) - AAdd( aLinesPRG, '' ) - AAdd( aLinesPRG, ' IF SubStr( cMsg, 1, 1 ) == "_"' ) - AAdd( aLinesPRG, ' cMsg := SubStr( cMsg, 2 )' ) - AAdd( aLinesPRG, ' ENDIF' ) - AAdd( aLinesPRG, '' ) - AAdd( aLinesPRG, ' IF Left( cMsg, 2 ) == "Q_"' ) - AAdd( aLinesPRG, ' IF __objHasMsg( Self, SubStr( cMsg, 3 ) )' ) - AAdd( aLinesPRG, ' cMsg := SubStr( cMsg, 3 )' ) - AAdd( aLinesPRG, ' RETURN ::&cMsg' ) - AAdd( aLinesPRG, ' ELSE' ) - AAdd( aLinesPRG, ' oError := ErrorNew()' ) - AAdd( aLinesPRG, ' oError:severity := ES_ERROR' ) - AAdd( aLinesPRG, ' oError:genCode := EG_ARG' ) - AAdd( aLinesPRG, ' oError:subSystem := "HBQT" ' ) - AAdd( aLinesPRG, ' oError:subCode := 1001' ) - AAdd( aLinesPRG, ' oError:canRetry := .F.' ) - AAdd( aLinesPRG, ' oError:canDefault := .F.' ) - AAdd( aLinesPRG, ' oError:Args := hb_AParams()' ) - AAdd( aLinesPRG, ' oError:operation := ProcName()' ) - AAdd( aLinesPRG, ' oError:Description := "Control <" + substr( cMsg, 3 ) + "> does not exist"' ) - AAdd( aLinesPRG, '' ) - AAdd( aLinesPRG, ' Eval( ErrorBlock(), oError )' ) - AAdd( aLinesPRG, ' ENDIF' ) - AAdd( aLinesPRG, ' ELSEIF ! empty( ::oWidget )' ) - AAdd( aLinesPRG, ' RETURN ::oWidget:&cMsg( ... )' ) - AAdd( aLinesPRG, ' ENDIF' ) - AAdd( aLinesPRG, '' ) - AAdd( aLinesPRG, ' RETURN NIL' ) - AAdd( aLinesPRG, "" ) - AAdd( aLinesPRG, "" ) AAdd( aLinesPRG, "METHOD " + cClass + ":" + "init( oParent )" ) AAdd( aLinesPRG, "" ) SWITCH cMCls @@ -836,6 +805,39 @@ STATIC FUNCTION hbqtui_buildClassCode( cFuncName, cMCls, aWidgets, aCommands, aL AAdd( aLinesPRG, "" ) AAdd( aLinesPRG, " RETURN Self" ) AAdd( aLinesPRG, "" ) + AAdd( aLinesPRG, "" ) + AAdd( aLinesPRG, 'METHOD ' + cClass + ':__OnError( ... )' ) + AAdd( aLinesPRG, ' LOCAL cMsg := __GetMessage()' ) + AAdd( aLinesPRG, ' LOCAL oError' ) + AAdd( aLinesPRG, '' ) + AAdd( aLinesPRG, ' IF SubStr( cMsg, 1, 1 ) == "_"' ) + AAdd( aLinesPRG, ' cMsg := SubStr( cMsg, 2 )' ) + AAdd( aLinesPRG, ' ENDIF' ) + AAdd( aLinesPRG, '' ) + AAdd( aLinesPRG, ' IF Left( cMsg, 2 ) == "Q_"' ) + AAdd( aLinesPRG, ' IF __objHasMsg( Self, SubStr( cMsg, 3 ) )' ) + AAdd( aLinesPRG, ' cMsg := SubStr( cMsg, 3 )' ) + AAdd( aLinesPRG, ' RETURN ::&cMsg' ) + AAdd( aLinesPRG, ' ELSE' ) + AAdd( aLinesPRG, ' oError := ErrorNew()' ) + AAdd( aLinesPRG, ' oError:severity := ES_ERROR' ) + AAdd( aLinesPRG, ' oError:genCode := EG_ARG' ) + AAdd( aLinesPRG, ' oError:subSystem := "HBQT" ' ) + AAdd( aLinesPRG, ' oError:subCode := 1001' ) + AAdd( aLinesPRG, ' oError:canRetry := .F.' ) + AAdd( aLinesPRG, ' oError:canDefault := .F.' ) + AAdd( aLinesPRG, ' oError:Args := hb_AParams()' ) + AAdd( aLinesPRG, ' oError:operation := ProcName()' ) + AAdd( aLinesPRG, ' oError:Description := "Control <" + substr( cMsg, 3 ) + "> does not exist"' ) + AAdd( aLinesPRG, '' ) + AAdd( aLinesPRG, ' Eval( ErrorBlock(), oError )' ) + AAdd( aLinesPRG, ' ENDIF' ) + AAdd( aLinesPRG, ' ELSEIF ! empty( ::oWidget )' ) + AAdd( aLinesPRG, ' RETURN ::oWidget:&cMsg( ... )' ) + AAdd( aLinesPRG, ' ENDIF' ) + AAdd( aLinesPRG, '' ) + AAdd( aLinesPRG, ' RETURN NIL' ) + AAdd( aLinesPRG, "" ) RETURN NIL diff --git a/harbour/contrib/hbqt/qtgui/hbqtgui.ch b/harbour/contrib/hbqt/qtgui/hbqtgui.ch index 79dd2dfdb3..d87198bddd 100644 --- a/harbour/contrib/hbqt/qtgui/hbqtgui.ch +++ b/harbour/contrib/hbqt/qtgui/hbqtgui.ch @@ -2362,6 +2362,10 @@ #define QLCDNumber_Filled 1 // gives raised segments filled with the windowText color. #define QLCDNumber_Flat 2 // gives flat segments filled with the windowText color. +#define QValidator_Invalid 0 // The string is clearly invalid. +#define QValidator_Intermediate 1 // The string is a plausible intermediate value. +#define QValidator_Acceptable 2 // The string is acceptable as a final result; i.e. it is valid. + /*----------------------------------------------------------------------*/ // HBQT Defined Constants /*----------------------------------------------------------------------*/