From b23a60a435d19d5c013b9e3639daf70c76fce5f1 Mon Sep 17 00:00:00 2001
From: marc <marc@lazarus-ide.org>
Date: Tue, 11 Mar 2008 00:32:30 +0000
Subject: [PATCH] * Callstack improvement by Martin Friebe

git-svn-id: trunk@14493 -
---
 debugger/callstackdlg.pp | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/debugger/callstackdlg.pp b/debugger/callstackdlg.pp
index 67b24be2b4..6e0474debd 100644
--- a/debugger/callstackdlg.pp
+++ b/debugger/callstackdlg.pp
@@ -403,6 +403,13 @@ end;
 procedure TCallStackDlg.SetViewLimit(const AValue: Integer);
 begin
   if FViewLimit = AValue then Exit;
+  if (CallStack <> nil)
+  and (FViewStart + FViewLimit >= CallStack.Count - 1)
+  and (AValue > FViewLimit)
+  then begin
+    FViewStart := CallStack.Count - 1 - AValue;
+    if FViewStart < 0 then FViewStart := 0;
+  end;
   FViewLimit := AValue;
   UpdateView;
 end;