package Gtkada.Dialogs is
type Message_Dialog_Buttons is mod 2 ** 32;
type Message_Dialog_Type is (Warning, -- Message box with a yellow exclamation point. Error, -- Message box with a red stop sign. Information, -- Message box with a blue "i". Confirmation, -- Message box with a blue question mark. Custom -- Message box with no pixmap. The caption of the box should be set by -- the user. );
Button_None : constant Message_Dialog_Buttons := 0;
Button_Yes : constant Message_Dialog_Buttons := 2 ** 0;
Button_No : constant Message_Dialog_Buttons := 2 ** 1;
Button_All : constant Message_Dialog_Buttons := 2 ** 2;
Button_OK : constant Message_Dialog_Buttons := 2 ** 3;
Button_Cancel : constant Message_Dialog_Buttons := 2 ** 4;
Button_Abort : constant Message_Dialog_Buttons := 2 ** 5;
Button_Retry : constant Message_Dialog_Buttons := 2 ** 6;
Button_Ignore : constant Message_Dialog_Buttons := 2 ** 7;
Button_Help : constant Message_Dialog_Buttons := 2 ** 8;
function Message_Dialog
( | Msg | : Glib.UTF8_String; |
Dialog_Type | : Message_Dialog_Type := Information; | |
Buttons | : Message_Dialog_Buttons := Button_OK or Button_Help; | |
Default_Button | : Message_Dialog_Buttons := Button_OK; | |
Help_Msg | : Glib.UTF8_String := ""; | |
Title | : Glib.UTF8_String := ""; | |
Justification | : Gtk_Justification := Justify_Center; | |
Parent | : Gtk.Window.Gtk_Window := null) return Message_Dialog_Buttons; |
function Create_Gtk_Dialog
( | Msg | : Glib.UTF8_String; |
Dialog_Type | : Message_Dialog_Type := Information; | |
Title | : Glib.UTF8_String := ""; | |
Justification | : Gtk_Justification := Justify_Center; | |
Parent | : Gtk.Window.Gtk_Window := null) return Gtk.Dialog.Gtk_Dialog; |