From 38e2cf2339f9249896380107b608a814d2ce2be0 Mon Sep 17 00:00:00 2001 From: Teo Fonrouge Date: Mon, 20 Oct 2008 04:12:50 +0000 Subject: [PATCH] 2008-10-19 20:18 UTC-0500 Teo Fonrouge (teo/at/windtelsoft/dot/com) * source/debug/dbgbrwsr.prg ! Fixed out of range error ( BASE/1133 ) when scrolling out the source code window and then executing a "run" command. --- harbour/ChangeLog | 5 +++++ harbour/source/debug/dbgbrwsr.prg | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 66e96a83d8..68573e3768 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -8,6 +8,11 @@ 2008-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org) */ +2008-10-19 20:18 UTC-0500 Teo Fonrouge (teo/at/windtelsoft/dot/com) + * source/debug/dbgbrwsr.prg + ! Fixed out of range error ( BASE/1133 ) when scrolling out the source + code window and then executing a "run" command. + 2008-10-20 01:18 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl) * harbour/include/hbstack.h ! added HB_EXPORT to hb_stack*() functions used in -gc3 code diff --git a/harbour/source/debug/dbgbrwsr.prg b/harbour/source/debug/dbgbrwsr.prg index 96db2fd6aa..a9f4212c87 100644 --- a/harbour/source/debug/dbgbrwsr.prg +++ b/harbour/source/debug/dbgbrwsr.prg @@ -112,7 +112,7 @@ CREATE CLASS HBDbBrowser METHOD PageUp() INLINE ::MoveCursor( -::rowCount ) METHOD GetColumn( nColumn ) INLINE ::aColumns[ nColumn ] METHOD RefreshAll() INLINE AFill( ::aRowState, .F. ), Self - METHOD RefreshCurrent() INLINE iif( ::rowCount > 0, ::aRowState[ ::rowPos ] := .F., ), Self + METHOD RefreshCurrent() INLINE iif( ::rowCount > 0 .AND. ::rowPos <= Len( ::aRowState ), ::aRowState[ ::rowPos ] := .F., ), Self METHOD Invalidate() INLINE ::RefreshAll() METHOD Stabilize() INLINE ::ForceStable() METHOD ForceStable() @@ -241,7 +241,7 @@ METHOD Resize( nTop, nLeft, nBottom, nRight ) IF lResize ::Configure():ForceStable() ENDIF - + RETURN self CREATE CLASS HBDbColumn