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

2012-07-10 15:18 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)

Browse Source 
* 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.
This commit is contained in:
Pritpal Bedi
2012-07-10 22:22:26 +00:00
parent ffe10ac9b5
commit 2b33c59989
3 changed files with 50 additions and 36 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
harbour/ChangeLog
View File

@@ -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

74
harbour/contrib/hbqt/hbmk2_qt.hb
View File

@@ -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

4
harbour/contrib/hbqt/qtgui/hbqtgui.ch
View File

@@ -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
/*----------------------------------------------------------------------*/