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

2001-06-21 13:20 GMT+3 Alexander Kresin <alex@belacy.belgorod.su>

Browse Source
This commit is contained in:
Alexander S.Kresin
2001-06-21 09:23:11 +00:00
parent 91b0d981c3
commit e48d3a8355
2 changed files with 10 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -1,3 +1,7 @@
2001-06-21 13:20 GMT+3 Alexander Kresin <alex@belacy.belgorod.su>
* source/debug/debugger.prg
* partially fixed cursor appearance on debug screen
2001-06-21 10:25 GMT+3 Alexander Kresin <alex@belacy.belgorod.su>
* source/rtl/inkey.c
+ added static variable s_altdPressed, which is set after pressing Alt-D

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

@@ -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