From 9621e43bff9c946f4194826c8584bfd45e719cf1 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Thu, 27 Mar 2014 22:55:45 +0000
Subject: [PATCH]  Avoid RTE 219 if compiled with -CR, by using correct common
 ancestor

git-svn-id: trunk@27305 -
---
 ide/fpmwnd.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ide/fpmwnd.inc b/ide/fpmwnd.inc
index fdc9fb5e32..dce4085732 100644
--- a/ide/fpmwnd.inc
+++ b/ide/fpmwnd.inc
@@ -78,7 +78,7 @@ begin
     hcCalcWindow   : S:=PCalculator(P)^.GetTitle(MaxLen);
     hcBrowserWindow: S:=PBrowserWindow(P)^.GetTitle(MaxLen);
     hcCompilerMessagesWindow,
-    hcMessagesWindow:S:=PMessagesWindow(P)^.GetTitle(MaxLen);
+    hcMessagesWindow:S:=PFPWindow(P)^.GetTitle(MaxLen);
     hcGDBWindow,
     hcDisassemblyWindow,
     hcWatchesWindow,