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

Mouse support added to the variables window

Browse Source
This commit is contained in:
Antonio Linares
2001-02-03 06:59:50 +00:00
parent 47dcb1e97d
commit c3895b34ec
1 changed files with 51 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

57
harbour/source/debug/debugger.prg
View File

@@ -157,6 +157,7 @@ CLASS TDebugger
METHOD ShowVars()
METHOD ToggleBreakPoint()
METHOD ViewSets()
METHOD WndVarsLButtonDown( nMRow, nMCol )
ENDCLASS
@@ -385,7 +386,25 @@ METHOD HandleEvent() CLASS TDebugger
endif
case nKey == K_LDBLCLK
Alert( "Mouse Left button doble click" )
if MRow() == 0
elseif MRow() == MaxRow()
else
nMRow := MRow()
nMCol := MCol()
for n := 1 to Len( ::aWindows )
if ::aWindows[ n ]:IsOver( nMRow, nMCol )
if ! ::aWindows[ n ]:lFocused
::aWindows[ ::nCurrentWindow ]:SetFocus( .f. )
::nCurrentWindow := n
::aWindows[ n ]:SetFocus( .t. )
endif
::aWindows[ n ]:LDblClick( nMRow, nMCol )
n := Len( ::aWindows ) + 1
endif
next
endif
case nKey == K_LBUTTONDOWN
if MRow() == 0
@@ -400,11 +419,13 @@ METHOD HandleEvent() CLASS TDebugger
nMRow := MRow()
nMCol := MCol()
for n := 1 to Len( ::aWindows )
if ::aWindows[ n ]:IsOver( nMRow, nMCol ) .and. ;
! ::aWindows[ n ]:lFocused
::aWindows[ ::nCurrentWindow ]:SetFocus( .f. )
::nCurrentWindow := n
::aWindows[ n ]:SetFocus( .t. )
if ::aWindows[ n ]:IsOver( nMRow, nMCol )
if ! ::aWindows[ n ]:lFocused
::aWindows[ ::nCurrentWindow ]:SetFocus( .f. )
::nCurrentWindow := n
::aWindows[ n ]:SetFocus( .t. )
endif
::aWindows[ n ]:LButtonDown( nMRow, nMCol )
n := Len( ::aWindows ) + 1
endif
next
@@ -605,6 +626,9 @@ METHOD ShowVars(bSort,nType) CLASS TDebugger
::oBrwVars:ForceStable() ), nil ), iif( nKey == K_UP, ( ::oBrwVars:Up(),;
::oBrwVars:ForceStable() ), nil ), iif( nKey == K_ENTER, ::EditVar( n ), nil ) }
::oWndVars:bLButtonDown = { | nMRow, nMCol | ::WndVarsLButtonDown( nMRow, nMCol ) }
::oWndVars:bLDblClick = { | nMRow, nMCol | ::EditVar( n ) }
::oBrwVars := TBrowseNew( 2, 1, 4, MaxCol() - iif( ::oWndStack != nil,;
::oWndStack:nWidth(), 0 ) - 1 )
::oBrwVars:ColorSpec := "BG+/B, N/BG"
@@ -818,6 +842,27 @@ METHOD ViewSets() CLASS TDebugger
return nil
METHOD WndVarsLButtonDown( nMRow, nMCol ) CLASS TDebugger
if nMRow > ::oWndVars:nTop .and. ;
nMRow < ::oWndVars:nBottom .and. ;
nMCol > ::oWndVars:nLeft .and. ;
nMCol < ::oWndVars:nRight
if nMRow - ::oWndVars:nTop >= 1 .and. ;
nMRow - ::oWndVars:nTop <= Len( ::aVars )
while ::oBrwVars:RowPos > nMRow - ::oWndVars:nTop
::oBrwVars:Up()
::oBrwVars:ForceStable()
end
while ::oBrwVars:RowPos < nMRow - ::oWndVars:nTop
::oBrwVars:Down()
::oBrwVars:ForceStable()
end
endif
endif
return nil
static procedure SetsKeyPressed( nKey, oBrwSets, nSets, oWnd )
local nSet := oBrwSets:Cargo