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

several improvements for the debugger

Browse Source
This commit is contained in:
Antonio Linares
2003-05-31 19:04:28 +00:00
parent d6f3c0ee2a
commit b4d24caa86
1 changed files with 15 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
harbour/source/rtl/teditor.prg
View File

@@ -462,12 +462,21 @@ METHOD GotoLine(nRow) CLASS HBEditor
else
// I need to move cursor if is past requested line number and if requested line is
// inside first screen of text otherwise ::nFirstRow would be wrong
if nRow < ::nNumRows .AND. (::nTop + nRow) < ::Row()
::SetPos(::nTop + nRow, ::Col())
if ::nFirstRow > 1
if nRow < ::nNumRows .AND. (::nTop + nRow) < ::Row()
::SetPos(::nTop + nRow, ::Col())
endif
else
if nRow <= ::nNumRows
::SetPos(::nTop + nRow - 1, ::Col())
endif
endif
::nRow := nRow
::nFirstRow := Max(1, nRow - (::Row() - ::nTop))
if ! ( ::nFirstRow == 1 .and. nRow <= ::nNumRows )
::nFirstRow := Max( 1, nRow - (::Row() - ::nTop))
endif
::RefreshWindow()
endif
@@ -576,6 +585,7 @@ METHOD RefreshWindow() CLASS HBEditor
LOCAL nOCol
LOCAL nORow
LOCAL nOCur
local cOldColor
nOCol := ::Col()
nORow := ::Row()
@@ -587,7 +597,9 @@ METHOD RefreshWindow() CLASS HBEditor
// Clear rest of editor window (needed when deleting lines of text)
if ::naTextLen < ::nNumRows
cOldColor = SetColor( ::cColorSpec )
Scroll(::nTop + ::naTextLen, ::nLeft, ::nBottom, ::nRight)
SetColor( cOldColor )
endif
SetCursor(nOCur)