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

2012-06-20 17:27 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)

Browse Source 
* contrib/hbqt/qtcore/hbqt_bind.cpp
  * contrib/hbqt/qtcore/qth/QLibraryInfo.qth
  * contrib/hbqt/qtgui/qth/QDesktopServices.qth
    ! Implemented: mechanism to generate a Harbour level class 
       without the need of a Qt level object for those classes 
       where methods are executed by Qt code only.
       This fixes the bug issue reported by Ligui.
This commit is contained in:
Pritpal Bedi
2012-06-21 00:35:21 +00:00
parent 4a6c67d590
commit 876106d3ef
4 changed files with 18 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
harbour/ChangeLog
View File

@@ -16,6 +16,15 @@
The license applies to all entries newer than 2009-04-28.
*/
2012-06-20 17:27 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
* contrib/hbqt/qtcore/hbqt_bind.cpp
* contrib/hbqt/qtcore/qth/QLibraryInfo.qth
* contrib/hbqt/qtgui/qth/QDesktopServices.qth
! Implemented: mechanism to generate a Harbour level class
without the need of a Qt level object for those classes
where methods are executed by Qt code only.
This fixes the bug issue reported by Ligui.
2012-06-20 16:30 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
* contrib/hbqt/qtcore/hbqt_bind.cpp
* contrib/hbqt/qtcore/hbqt_misc.prg

5
harbour/contrib/hbqt/qtcore/hbqt_bind.cpp
View File

@@ -240,8 +240,9 @@ PHB_ITEM hbqt_bindGetHbObject( PHB_ITEM pItem, void * qtObject, const char * szC
PHB_ITEM pObject = NULL;
if( qtObject == NULL )
return pObject;
if( ! HB_IS_NUMERIC( ( PHB_ITEM ) qtObject ) )
if( qtObject == NULL )
return pObject;
PHB_SYMB pClassFunc = hb_dynsymGetSymbol( szClassName );
if( pClassFunc == NULL )

4
harbour/contrib/hbqt/qtcore/qth/QLibraryInfo.qth
View File

@@ -36,7 +36,9 @@ Constructor =
*/
HB_FUNC( QT_QLIBRARYINFO )
{
__HB_RETPTRGC__( NULL );
PHB_ITEM pItem = hb_itemPutNI( NULL, 0 );
hb_itemReturnRelease( hbqt_bindGetHbObject( NULL, pItem, "HB_QLIBRARYINFO", NULL, HBQT_BIT_NONE ) );
hb_itemRelease( pItem );
}
</CODE>

4
harbour/contrib/hbqt/qtgui/qth/QDesktopServices.qth
View File

@@ -35,7 +35,9 @@ Constructor = no
*/
HB_FUNC( QT_QDESKTOPSERVICES )
{
__HB_RETPTRGC__( NULL );
PHB_ITEM pItem = hb_itemPutNI( NULL, 0 );
hb_itemReturnRelease( hbqt_bindGetHbObject( NULL, pItem, "HB_QDESKTOPSERVICES", NULL, HBQT_BIT_NONE ) );
hb_itemRelease( pItem );
}
</CODE>