From 1b2b4bb4f3ecc034a6e9364d8768e50b167a9680 Mon Sep 17 00:00:00 2001 From: Tomas Bzatek Date: Tue, 24 Dec 2024 12:41:48 +0100 Subject: Rough GTK3 port --- UError.pas | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'UError.pas') diff --git a/UError.pas b/UError.pas index 3863575..b079007 100644 --- a/UError.pas +++ b/UError.pas @@ -21,7 +21,7 @@ unit UError; interface -uses lazglib2, gtk2, Classes, SysUtils, GTKForms; +uses lazglib2, lazgtk3, Classes, SysUtils, GTKForms; type TuxcmdErrorEnum = ( TUXCMD_ERROR_CANCELLED, @@ -127,7 +127,7 @@ procedure VFSToTuxcmdError(Error: PPGError; Operation: TuxcmdErrorEnum); implementation -uses UCoreUtils, UGnome; +uses UCoreUtils; (********************************************************************************************************************************) @@ -213,10 +213,10 @@ var Dialog: PGtkWidget; begin if Error <> nil then error_str := Error^.message else error_str := ''; - dialog := gtk_message_dialog_new_with_markup(PGtkWindow(Parent.FWidget), GTK_DIALOG_MODAL or GTK_DIALOG_DESTROY_WITH_PARENT, + dialog := gtk_message_dialog_new_with_markup(PGtkWindow(Parent.FWidget), [GTK_DIALOG_MODAL, GTK_DIALOG_DESTROY_WITH_PARENT], GTK_MESSAGE_ERROR, GTK_BUTTONS_OK, '%s'#10#10'%s', - PChar(Text), error_str); + [PChar(Text), error_str]); gtk_window_set_title(PGtkWindow(dialog), ''); gtk_dialog_run(PGtkDialog(Dialog)); gtk_widget_destroy(PGtkWidget(Dialog)); -- cgit v1.2.3