From 351c19894f40e16e7707312176cf0c7811acf86d Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Mon, 2 Jun 2014 21:16:16 +0000
Subject: [PATCH] jcf: fixed compilation

git-svn-id: trunk@45309 -
---
 components/jcf2/IdePlugin/lazarus/jcfidemain.pas | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/components/jcf2/IdePlugin/lazarus/jcfidemain.pas b/components/jcf2/IdePlugin/lazarus/jcfidemain.pas
index bbfbfd0fbc..92e7719c6a 100644
--- a/components/jcf2/IdePlugin/lazarus/jcfidemain.pas
+++ b/components/jcf2/IdePlugin/lazarus/jcfidemain.pas
@@ -38,7 +38,7 @@ interface
 uses
   { freepascal }SysUtils, Classes,
   { lazarus design time }
-  LazIDEIntf, SrcEditorIntf, IDEMsgIntf, ProjectIntf,
+  LazIDEIntf, SrcEditorIntf, IDEMsgIntf, ProjectIntf, IDEExternToolIntf,
   { local}
   EditorConverter, FileConverter, ConvertTypes, jcfuiconsts;
 
@@ -250,6 +250,9 @@ procedure TJcfIdeMain.LogIDEMessage(const psFile, psMessage: string;
   const piY, piX: integer);
 var
   lazMessages: TIDEMessagesWindowInterface;
+  {$IFDEF EnableNewExtTools}
+  Urgency: TMessageLineUrgency;
+  {$ENDIF}
 begin
   { no empty lines in this log }
   if psMessage = '' then
@@ -259,12 +262,22 @@ begin
   if lazMessages = nil then
     exit;
 
+  {$IFDEF EnableNewExtTools}
+  case peMessageType of
+  mtException,mtInputError,mtParseError: Urgency:=mluError;
+  mtCodeWarning: Urgency:=mluWarning;
+  mtFinalSummary: Urgency:=mluImportant;
+  mtProgress: Urgency:=mluProgress;
+  end;
+  lazMessages.AddCustomMessage(Urgency,psMessage, psFile, piY, piX, 'JCF')
+  {$ELSE}
   if (piY >= 0) and (piX >= 0) then
     lazMessages.AddMsg('JCF: ' + psMessage, psFile, 0)
     //lazMessages.AddToolMessage(psFile, psMessage, 'JCF', piY, piX)
   else
     lazMessages.AddMsg('JCF: ' + psFile + ' ' + psMessage, '', 0);
     //lazMessages.AddTitleMessage('JCF: ' + psFile + ' ' + psMessage);
+  {$ENDIF}
 end;
 
 procedure TJcfIdeMain.MakeEditorConverter;