From 856b97cf3e4feee896836cc691d3b32b26b8604b Mon Sep 17 00:00:00 2001 From: Paul Tucker Date: Mon, 23 Aug 1999 06:12:22 +0000 Subject: [PATCH] *** empty log message *** --- harbour/ChangeLog | 4 ++++ harbour/source/debug/tbrwtext.prg | 4 ++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index ac2c82cec4..1077b14297 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,7 @@ +19990823-02:00 EDT Paul Tucker + * source/debug/tbrwtext.prg + * GotoLine() only forceStable once after loop is done. + 19990823-01:11 EDT Paul Tucker * source/debug/debugger.prg * ::Activate - fix for trashed screens diff --git a/harbour/source/debug/tbrwtext.prg b/harbour/source/debug/tbrwtext.prg index 693156628d..7427691ab3 100644 --- a/harbour/source/debug/tbrwtext.prg +++ b/harbour/source/debug/tbrwtext.prg @@ -53,13 +53,13 @@ METHOD GotoLine( nLine ) CLASS TBrwText if nLine > ::nLine while ::nLine < nLine ::Down() - ::ForceStable() end + ::ForceStable() else while ::nLine > nLine ::Up() - ::ForceStable() end + ::ForceStable() endif return nil