From 7f6e3260a2a4f89ec653dbceee29b5819fb3539f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Beno=C3=AEt=20Minisini?= <gambas@users.sourceforge.net>
Date: Fri, 14 Oct 2011 17:24:20 +0000
Subject: [PATCH] [DEVELOPMENT ENVIRONMENT] * BUG: Colorize error tooltips
 differently in the source code editor, so   that they are visible with all
 possible tooltip background colors.

git-svn-id: svn://localhost/gambas/trunk@4200 867c0c6c-44f3-4631-809d-bfa615b0a4ec
---
 app/src/gambas3/.lang/.pot                     | 2 +-
 app/src/gambas3/.src/Editor/Code/FEditor.class | 9 ++++++---
 2 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/app/src/gambas3/.lang/.pot b/app/src/gambas3/.lang/.pot
index c3be5be98..2937313ef 100644
--- a/app/src/gambas3/.lang/.pot
+++ b/app/src/gambas3/.lang/.pot
@@ -1428,7 +1428,7 @@ msgid ""
 "All your changes will be lost."
 msgstr ""
 
-#: FEditor.class:2806
+#: FEditor.class:2809
 msgid "(Declarations)"
 msgstr ""
 
diff --git a/app/src/gambas3/.src/Editor/Code/FEditor.class b/app/src/gambas3/.src/Editor/Code/FEditor.class
index ae709679e..c22473c63 100644
--- a/app/src/gambas3/.src/Editor/Code/FEditor.class
+++ b/app/src/gambas3/.src/Editor/Code/FEditor.class
@@ -2705,14 +2705,17 @@ Public Sub ShowWatchResult(sStr As String, X As Integer, Y As Integer)
 
   Dim iColor As Integer
 
+  iColor = Color.TooltipBackground
+  
   If Left(sStr) = "!" Then
     sStr = Mid$(sStr, 2)
     If sStr = "Syntax error" Or If sStr = "Non terminated string" Or If sStr = "Unknown symbol" Then Return
     If sStr Begins "Unexpected " Then Return
     sStr = Design.MakeErrorMessage(sStr)
-    iColor = Color.HSV(0, 64, 255)
-  Else
-    iColor = Color.TooltipBackground
+    With Color[iColor]
+      .Hue = 60
+      iColor = .Color
+    End With
   Endif
 
   ShowMessageLabel(Html(sStr), X, Y, iColor)