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

2012-07-09 00:44 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)

Browse Source 
* contrib/hbqt/hbmk2_qt.hb
    ! Fixed: to identify and set the object's name.
       Though it was not doing any harm, but it is a futuristic
       move where we would be able to retrieve an object given its name.
This commit is contained in:
Pritpal Bedi
2012-07-09 07:47:24 +00:00
parent cc149201a8
commit e9d680f79d
2 changed files with 14 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/ChangeLog
View File

@@ -16,6 +16,12 @@
The license applies to all entries newer than 2009-04-28.
*/
2012-07-09 00:44 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
* contrib/hbqt/hbmk2_qt.hb
! Fixed: to identify and set the object's name.
Though it was not doing any harm, but it is a futuristic
move where we would be able to retrieve an object given its name.
2012-07-08 10:56 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
* contrib/hbqt/hbmk2_qt.hb
+ Added: few more Qt defined variable types.

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

@@ -634,6 +634,9 @@ STATIC FUNCTION hbqtui_gen_prg( cFile, cFuncName )
IF "setupUi" $ s
lCreateFinished := .T.
ELSEIF Left( s, 4 ) == "if ("
// It is the test for main widget's objectName, leave it.
ELSEIF Left( s, 1 ) == "Q" .AND. ! lCreateFinished .AND. ( n := At( "*", s ) ) > 0
// We will deal later - just skip
@@ -651,9 +654,6 @@ STATIC FUNCTION hbqtui_gen_prg( cFile, cFuncName )
ELSEIF hbqtui_isNonImplementedMethod( s )
// DO nothing
ELSEIF hbqtui_isObjectNameSet( s ) /* This is needed as it is not being set in class construction */
// Skip - we already know the object name and will set after construction
ELSEIF ! Empty( cText := hbqtui_pullSetToolTip( aLines, s:__enumIndex() ) )
n := At( "->", cText )
cNam := AllTrim( SubStr( cText, 1, n - 1 ) )
@@ -3402,9 +3402,14 @@ STATIC FUNCTION qth_is_QObject( cWidget )
aadd( aQObjects, "QGLWidget" )
aadd( aQObjects, "QGraphicsSvgItem" )
aadd( aQObjects, "QSvgRenderer" )
aadd( aQObjects, "QScriptEngine" )
aadd( aQObjects, "QScriptExtensionPlugin" )
aadd( aQObjects, "QAudioInput" )
aadd( aQObjects, "QAudioOutput" )
ENDIF
RETURN ascan( aQObjects, {|e| e == cWidget } ) > 0