*** empty log message ***

1999-08-23 06:12:22 +00:00
parent dfb87515e3
commit 856b97cf3e
2 changed files with 6 additions and 2 deletions
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,7 @@
+19990823-02:00 EDT Paul Tucker <ptucker@sympatico.ca>
+  * source/debug/tbrwtext.prg
+    * GotoLine() only forceStable once after loop is done.
+
 19990823-01:11 EDT Paul Tucker <ptucker@sympatico.ca>
  * source/debug/debugger.prg
    * ::Activate - fix for trashed screens
--- 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