with Gtk.Menu_Item; use Gtk.Menu_Item;
with Gtk;            use Gtk;
with Gtk.Main;       use Gtk.Main;
with Glib.Error;     use Glib.Error;
with Gtk.Widget;     use Gtk.Widget;
with Gtk.Dialog;     use Gtk.Dialog;
with Gtk.About_Dialog; use Gtk.About_Dialog;
with Gtk.Label;        use Gtk.Label;
with Ada.Text_IO; use Ada.Text_IO;
with Glib;      use Glib;
with Glib.Object; use Glib.Object;

package body graphical_editor.user_message_callbacks is

procedure Close_Message_Box(Object : access Gtkada_Builder_Record'Class) is
	pragma Unreferenced (Object);
	message_dialog : GObject;
begin
	message_dialog:=Get_Object(Object, "messagedialog1");
	Unref(message_dialog);
	Hide(Gtk_Widget(message_dialog));
end Close_Message_Box;

end graphical_editor.user_message_callbacks;