From 46ebd94e12ebe8ea1aeae56b0d7ebba7b9602431 Mon Sep 17 00:00:00 2001 From: Maurilio Longo Date: Fri, 10 Nov 2000 21:51:10 +0000 Subject: [PATCH] 2000-11-10 22:50 GMT+1 Maurilio Longo --- harbour/ChangeLog | 4 ++++ harbour/source/rtl/teditor.prg | 4 ++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 11caad2bbc..ac10196397 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,7 @@ +2000-11-10 22:50 GMT+1 Maurilio Longo + * source/rtl/teditor.prg + ! error in cursor handling when K_CTRL_PGDN or K_CTRL_END key was pressed. + 2000-11-10 11:40 UTC+0800 Ron Pinkas * source/compiler/harbour.sly + Added support for early macro of expansion declared symbol for simple macro expression within CodeBlock (Like Clipper). diff --git a/harbour/source/rtl/teditor.prg b/harbour/source/rtl/teditor.prg index b7206f795d..7e4217ee0d 100644 --- a/harbour/source/rtl/teditor.prg +++ b/harbour/source/rtl/teditor.prg @@ -625,7 +625,7 @@ METHOD MoveCursor(nKey) CLASS TEditor ::nCol := Max(::LineLen(::nRow), 1) ::nFirstRow := Max(::naTextLen - ::nNumRows + 1, 1) ::nFirstCol := Max(::nCol - ::nNumCols + 1, 1) - ::SetPos(Min(::nBottom, ::naTextLen), Min(::nLeft + ::nCol - 1, ::nRight)) + ::SetPos(Min(::nTop + ::naTextLen - 1, ::nBottom), Min(::nLeft + ::nCol - 1, ::nRight)) ::RefreshWindow() case nKey == K_UP @@ -739,7 +739,7 @@ METHOD MoveCursor(nKey) CLASS TEditor endif ::nCol := Max(::LineLen(::nRow), 1) ::nFirstCol := Max(::nCol - ::nNumCols + 1, 1) - ::SetPos(Min(::nBottom, ::naTextLen), Min(::nLeft + ::nCol - 1, ::nRight)) + ::SetPos(Min(::nTop + ::naTextLen - 1, ::nBottom), Min(::nLeft + ::nCol - 1, ::nRight)) ::RefreshWindow() otherwise