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

@@ -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

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