[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
This commit is contained in:
Benoît Minisini 2011-10-14 17:24:20 +00:00
parent f21e2d7b17
commit 7f6e3260a2
2 changed files with 7 additions and 4 deletions

View File

@ -1428,7 +1428,7 @@ msgid ""
"All your changes will be lost."
msgstr ""
#: FEditor.class:2806
#: FEditor.class:2809
msgid "(Declarations)"
msgstr ""

View File

@ -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)