From e48d3a83559834c20a9dcf031e3f3b059f5c0583 Mon Sep 17 00:00:00 2001 From: "Alexander S.Kresin" Date: Thu, 21 Jun 2001 09:23:11 +0000 Subject: [PATCH] 2001-06-21 13:20 GMT+3 Alexander Kresin --- harbour/ChangeLog | 4 ++++ harbour/source/debug/debugger.prg | 9 ++++++--- 2 files changed, 10 insertions(+), 3 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index b0f1c93375..fe7e9eb3f4 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,7 @@ +2001-06-21 13:20 GMT+3 Alexander Kresin + * source/debug/debugger.prg + * partially fixed cursor appearance on debug screen + 2001-06-21 10:25 GMT+3 Alexander Kresin * source/rtl/inkey.c + added static variable s_altdPressed, which is set after pressing Alt-D diff --git a/harbour/source/debug/debugger.prg b/harbour/source/debug/debugger.prg index 819b1a2b7f..962e24a0bd 100644 --- a/harbour/source/debug/debugger.prg +++ b/harbour/source/debug/debugger.prg @@ -326,9 +326,12 @@ METHOD New() CLASS TDebugger ::oPullDown := __dbgBuildMenu( Self ) ::oWndCode := TDbWindow():New( 1, 0, MaxRow() - 6, MaxCol() ) + ::oWndCode:Cargo := { ::oWndCode:nTop, ::oWndCode:nLeft } ::oWndCode:bKeyPressed := { | nKey | ::CodeWindowProcessKey( nKey ) } - ::oWndCode:bGotFocus := { || ::oGetListCommand:SetFocus(), SetCursor( SC_SPECIAL1 ) } - ::oWndCode:bLostFocus := { || SetCursor( SC_NONE ) } + ::oWndCode:bGotFocus := { || ::oGetListCommand:SetFocus(), SetCursor( SC_SPECIAL1 ), ; + SetPos( ::oWndCode:Cargo[1],::oWndCode:Cargo[2] ) } + ::oWndCode:bLostFocus := { || ::oWndCode:Cargo[1] := Row(), ::oWndCode:Cargo[2] := Col(), ; + SetCursor( SC_NONE ) } ::oWndCode:bPainted = { || ::oBrwText:SetColor( __DbgColors()[ 2 ] + "," + ; __DbgColors()[ 5 ] + "," + __DbgColors()[ 3 ] + "," + ; __DbgColors()[ 6 ] ),; @@ -1412,7 +1415,7 @@ METHOD SaveAppStatus() CLASS TDebugger ::cAppColors := SetColor() ::nAppCursor := SetCursor() RestScreen( 0, 0, MaxRow(), MaxCol(), ::cImage ) - SetCursor( SC_NONE ) + // SetCursor( SC_NONE ) DispEnd() return nil