* msgqueue now raises exceptions if the queue is full instead of trying to write to the console (which might not exist).

* MessageDialog displayed wrong icon for Critical errors.
* Removed compiler hint from tiListMediators'

3 files changed, 4 insertions, 4 deletions

diff --git a/extras/tiopf/gui/tiListMediators.pas b/extras/tiopf/gui/tiListMediators.pas
index 2e2c9d6f..8dd08cb6 100644
--- a/extras/tiopf/gui/tiListMediators.pas
+++ b/extras/tiopf/gui/tiListMediators.pas
@@ -15,7 +15,6 @@ uses
   tiBaseMediator,
   fpg_listview,
   fpg_grid,
-  fpg_listbox,
   tiObject;
 
 type
@@ -458,6 +457,7 @@ end;
 
 procedure TStringGridMediator.RebuildList;
 begin
+//  writeln('--- TStringGridMediator.RebuildList');
   { This rebuilds the whole list. Not very efficient. }
   View.BeginUpdate;
   try
diff --git a/src/corelib/fpg_msgqueue.inc b/src/corelib/fpg_msgqueue.inc
index b78eadef..80e0be96 100644
--- a/src/corelib/fpg_msgqueue.inc
+++ b/src/corelib/fpg_msgqueue.inc
@@ -129,7 +129,7 @@ begin
       p^.Params  := aparams;
     end
     else
-      Writeln('THE MESSAGE QUEUE IS FULL.');
+      raise Exception.Create('THE fpGUI MESSAGE QUEUE IS FULL.');
   finally
     fpgApplication.Unlock;
   end;
@@ -153,7 +153,7 @@ begin
       p^.Stop    := False;
     end
     else
-      Writeln('THE MESSAGE QUEUE IS FULL.');
+      raise Exception.Create('THE fpGUI MESSAGE QUEUE IS FULL.');
   finally
     fpgApplication.Unlock;
   end;
diff --git a/src/gui/messagedialog.inc b/src/gui/messagedialog.inc
index da0f453d..82aeb97e 100644
--- a/src/gui/messagedialog.inc
+++ b/src/gui/messagedialog.inc
@@ -367,7 +367,7 @@ var
 begin
   dlg := TfpgMessageDialog.Create(nil);
   try
-    dlg.FDialogType     := mtWarning;
+    dlg.FDialogType     := mtError;
     dlg.FButtons        := AButtons;
     dlg.Text            := ATitle;
     dlg.InformativeText := AText;