From d00d7e70db5f852d45f0b596223ef900f450b7b0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Przemys=C5=82aw=20Czerpak?= <druzus@poczta.onet.pl>
Date: Tue, 20 May 2014 19:49:15 +0200
Subject: [PATCH] 2014-05-20 19:49 UTC+0200 Przemyslaw Czerpak
 (druzus/at/poczta.onet.pl)   * src/debug/dbgbrwsr.prg     ! update current
 row position after resizing       It should fix 2-nd problem reported by
 Rolf.

---
 ChangeLog.txt          | 5 +++++
 src/debug/dbgbrwsr.prg | 4 ++++
 2 files changed, 9 insertions(+)

diff --git a/ChangeLog.txt b/ChangeLog.txt
index 35b3a42924..35bb5a7848 100644
--- a/ChangeLog.txt
+++ b/ChangeLog.txt
@@ -10,6 +10,11 @@
      * Change, ! Fix, % Optimization, + Addition, - Removal, ; Comment
  */
 
+2014-05-20 19:49 UTC+0200 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
+  * src/debug/dbgbrwsr.prg
+    ! update current row position after resizing
+      It should fix 2-nd problem reported by Rolf.
+
 2014-05-20 17:03 UTC+0200 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
   * src/debug/debugger.prg
     ! calculate ListBox coordinates as integer value
diff --git a/src/debug/dbgbrwsr.prg b/src/debug/dbgbrwsr.prg
index d7be3e3600..9f1bc4fabf 100644
--- a/src/debug/dbgbrwsr.prg
+++ b/src/debug/dbgbrwsr.prg
@@ -125,6 +125,10 @@ METHOD New( nTop, nLeft, nBottom, nRight, oParentWindow ) CLASS HBDbBrowser
 METHOD Configure()
 
    ::rowCount := ::nBottom - ::nTop + 1
+   IF ::rowPos > ::rowCount
+      ::nFirstVisible -= ::rowPos - ::rowCount
+      ::rowPos := ::rowCount
+   ENDIF
    AFill( ASize( ::aRowState, ::rowCount ), .F. )
    ::lConfigured := .T.