[DEVELOPMENT ENVIRONMENT]

* BUG: Let the MessageView control use its default colors.

[GB.FORM]
* NEW: MessageView default colors are now default text background and 
  foreground.


git-svn-id: svn://localhost/gambas/trunk@7294 867c0c6c-44f3-4631-809d-bfa615b0a4ec

app/src/gambas3/.src/FMain.form

@@ -1078,7 +1078,6 @@
   }
   { msgError MessageView
     MoveScaled(27,10,57,6)
-    Background = &HFFFFEF&
     Animated = True
   }
   { Panel1 Panel

app/src/gambas3/.src/Project.module

@@ -2082,7 +2082,7 @@ Public Function LoadFile(sPath As String) As Object
             
             Dec Application.Busy
             Files[sPath] = Null
-            FMain.ShowError(("Cannot open a binary file.") & "\n\n" & sPath, sPath)
+            FMain.ShowError(("Cannot open a binary file."), sPath)
             Return
             
           Endif

comp/src/gb.form/.src/Message/MessageView.class

@@ -28,7 +28,8 @@ Private $aIcon As New Picture[]
 Public Sub _new()
   
   $hView = New DrawingArea(Me) As "View"
-  $hView.Background = Color.Merge(Color.LightBackground, Color.TextBackground, 0.9)
+  $hView.Background = Color.TextBackground
+  $hView.Foreground = Color.TextForeground
   
   $hClose = New Button($hView) As "CloseButton"
   $hClose.H = Desktop.Scale * 4