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

2010-05-04 06:58 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)

Browse Source 
* contrib/hbxbp/xbptabpage.prg
    ! Fixed to not generate error on right-click on a tab.
This commit is contained in:
Pritpal Bedi
2010-05-04 16:33:19 +00:00
parent 7bad444425
commit 643299a0ed
2 changed files with 12 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -17,6 +17,10 @@
past entries belonging to author(s): Viktor Szakats.
*/
2010-05-04 06:58 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)
* contrib/hbxbp/xbptabpage.prg
! Fixed to not generate error on right-click on a tab.
2010-05-04 06:58 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)
* contrib/hbqt/hbqt_errorsys.prg
- Removed: Error trace copied to clipboard, it was unforeseen implementation.

11
harbour/contrib/hbxbp/xbptabpage.prg
View File

@@ -137,6 +137,7 @@ METHOD XbpTabPage:create( oParent, oOwner, aPos, aSize, aPresParams, lVisible )
::oWidget := QWidget():new()
::oWidget:setContextMenuPolicy( Qt_CustomContextMenu )
::oWidget:setObjectName( "Tab_Page" )
oPar:oWidget:addTab( ::pWidget, ::caption )
@@ -282,6 +283,7 @@ METHOD XbpTabWidget:create( oParent, oOwner, aPos, aSize, aPresParams, lVisible
::oWidget := QTabWidget():new( ::pParent )
::oWidget:setContextMenuPolicy( Qt_CustomContextMenu )
::oWidget:setObjectName( "Tab_Widget" )
::Connect( ::oWidget, "currentChanged(int)" , {|i| ::execSlot( "currentChanged(int)" , i ) } )
::Connect( ::oWidget, "tabCloseRequested(int)" , {|i| ::execSlot( "tabCloseRequested(int)", i ) } )
@@ -314,11 +316,15 @@ METHOD XbpTabWidget:destroy()
/*----------------------------------------------------------------------*/
METHOD XbpTabWidget:execSlot( cSlot, p )
LOCAL qTab, nIndex, oTab, qPoint
LOCAL qTab, nIndex, oTab, pWidget, qPoint, qApp
LOCAL iIndex
IF hb_isPointer( p )
qPoint := QPoint():from( ::oWidget:mapToGlobal( p ) )
qPoint := QPoint():from( ::oWidget:mapToGlobal( p ) )
qApp := QApplication():new()
pWidget := QWidget():from( qApp:widgetAt( qPoint ) )
iIndex := ascan( ::aChildren, {|o| hbqt_IsEqualGcQtPointer( o:oWidget:pPtr, pWidget:pPtr ) } ) - 1
HB_TRACE( HB_TR_ALWAYS, "iIndex", iIndex, pWidget:objectName() )
ELSE
iIndex := p
ENDIF
@@ -331,7 +337,6 @@ METHOD XbpTabWidget:execSlot( cSlot, p )
DO CASE
CASE cSlot == "customContextMenuRequested(QPoint)"
qPoint := QPoint():from( ::oWidget:mapToGlobal( p ) )
oTab:hbContextMenu( { qPoint:x(), qPoint:y() } )
CASE cSlot == "currentChanged(int)"