Error system transformation to GErrorv0.6.74

Note that most coreworkers are broken at the moment.

1 files changed, 24 insertions, 1 deletions

diff --git a/UError.pas b/UError.pas
index cf722e3..57250a8 100644
--- a/UError.pas
+++ b/UError.pas
@@ -21,7 +21,7 @@ unit UError;
 
 interface
 
-uses glib2, gdk2, Classes, ULibc;
+uses glib2, gtk2, Classes, ULibc, GTKForms;
 
 
 //  Ported from gioerror.h
@@ -68,6 +68,8 @@ function G_IO_ERROR: TGQuark;
 
 function g_io_error_from_errno(err_no: gint): GIOErrorEnum;
 
+procedure ShowError(Parent: TCustomGTKForm; const Text: string; Error: PGError);
+
 implementation
 
 uses SysUtils, UCoreUtils, UGnome;
@@ -111,5 +113,26 @@ begin
   end;
 end;
 
+
+(********************************************************************************************************************************)
+procedure ShowError(Parent: TCustomGTKForm; const Text: string; Error: PGError);
+var Dialog: PGtkWidget;
+    error_str: PChar;
+begin
+  if Error <> nil then error_str := Error^.message
+                  else error_str := '';
+  if @gtk_message_dialog_new_with_markup <> nil
+    then dialog := gtk_message_dialog_new_with_markup (PGtkWindow(Parent.FWidget), GTK_DIALOG_MODAL or GTK_DIALOG_DESTROY_WITH_PARENT,
+                                                       GTK_MESSAGE_ERROR, GTK_BUTTONS_OK,
+                                                       '<span size="large" weight="ultrabold">%s</span>'#10#10'%s',
+                                                       PChar(Text), error_str)
+    else dialog := gtk_message_dialog_new (PGtkWindow(Parent.FWidget), GTK_DIALOG_MODAL or GTK_DIALOG_DESTROY_WITH_PARENT,
+                                           GTK_MESSAGE_ERROR, GTK_BUTTONS_OK,
+                                           '%s'#10#10'%s', PChar(Text), error_str);
+  gtk_window_set_title (PGtkWindow(dialog), '');
+  gtk_dialog_run (PGtkDialog(Dialog));
+  gtk_widget_destroy (PGtkWidget(Dialog));
+end;
+
 end.