diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 38e1758bfc..2a8e9f8164 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -17,6 +17,11 @@ past entries belonging to author(s): Viktor Szakats. */ +2009-12-28 18:54 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com) + * contrib/hbide/idedocks.prg + + Added skeleton to process double-click on compile output. + A work-in-progress. + 2009-12-28 17:29 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com) * contrib/hbide/hbide.prg * contrib/hbide/ideactions.prg diff --git a/harbour/contrib/hbide/idedocks.prg b/harbour/contrib/hbide/idedocks.prg index 03edbdca57..3f719fac35 100644 --- a/harbour/contrib/hbide/idedocks.prg +++ b/harbour/contrib/hbide/idedocks.prg @@ -73,6 +73,8 @@ CLASS IdeDocks + DATA nPass INIT 0 + DATA oIde ACCESS oDlg INLINE ::oIde:oDlg @@ -111,6 +113,8 @@ CLASS IdeDocks METHOD buildLinkResults() METHOD buildOutputResults() + METHOD outputDoubleClicked() + ENDCLASS /*----------------------------------------------------------------------*/ @@ -339,7 +343,25 @@ METHOD IdeDocks:buildOutputResults() ::oDlg:oWidget:addDockWidget_1( Qt_BottomDockWidgetArea, ::oDockB2:oWidget, Qt_Horizontal ) ::oDockB2:hide() + Qt_Connect_Signal( ::oOutputResult:oWidget, "copyAvailable(bool)", {|o,l| ::outputDoubleClicked( l, o ) } ) + RETURN Self /*----------------------------------------------------------------------*/ +METHOD IdeDocks:outputDoubleClicked( lSelected ) + LOCAL qCursor + + IF lSelected + ::nPass++ + IF ::nPass == 1 + qCursor := QTextCursor():configure( ::oOutputResult:oWidget:textCursor() ) + HB_TRACE( HB_TR_ALWAYS, "METHOD IdeDocks:outputDoubleClicked()", lSelected, qCursor:blockNumber() ) + ENDIF + IF ::nPass >= 2 + ::nPass := 0 + ENDIF + ENDIF + RETURN Self + +/*----------------------------------------------------------------------*/