*** empty log message ***

1999-08-25 07:43:17 +00:00
parent b7670cc2be
commit 7a894bac91
2 changed files with 6 additions and 0 deletions
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,7 @@
+19990825-09:02 GMT+1 Antonio Linares <alinares@fivetech.com>
+   * source/debug/tbrwtext.prg
+     * Improved display functionality.
+
 19990825-09:02 GMT+1 Antonio Linares <alinares@fivetech.com>
   * source/debug/debugger.prg
     + Breakpoints already working.
--- a/harbour/source/debug/tbrwtext.prg
+++ b/harbour/source/debug/tbrwtext.prg
@@ -50,6 +50,7 @@ return Self

 METHOD GotoLine( nLine ) CLASS TBrwText

+   DispBegin()
   if nLine > ::nLine
      while ::nLine < nLine
         ::Down()
@@ -61,6 +62,7 @@ METHOD GotoLine( nLine ) CLASS TBrwText
      end
      ::ForceStable()
   endif
+   DispEnd()

 return nil