diff options
Diffstat (limited to 'UError.pas')
| -rw-r--r-- | UError.pas | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -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, '<span size="large" weight="ultrabold">%s</span>'#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)); |
