with messages; use messages; 
with Gtkada.Builder; use Gtkada.Builder;
with generic_callbacks; 
with generic_package_widget; use generic_package_widget;
with Glib.Values; use Glib.Values;
with Glib; use Glib;


package graphical_editor.messages is

	message_table_length : constant natural :=13;

	procedure Show_Message_Widget;

	procedure Initialize_message(my_tab: in out table_widget_id ; Object : access Gtkada_Builder_Record'Class);

	procedure Add_In_Sys_message(my_tab: in out table_widget_id ; Object : access Gtkada_Builder_Record'Class);

	procedure Deleted_In_Sys_message(my_tab: in out table_widget_id ; Object : access Gtkada_Builder_Record'Class);

	procedure Show_In_Sys_message(my_tab: in out table_widget_id ; Object : access Gtkada_Builder_Record'Class);

	procedure Modify_In_Sys_message(my_tab: in out table_widget_id ; Object : access Gtkada_Builder_Record'Class; 
	name: unbounded_string);

	procedure Check_message(my_tab: in out table_widget_id ; Object : access Gtkada_Builder_Record'Class; 
	Error_Message: in out Unbounded_String; Ok: in out Boolean);

	function get_compatible_message(mymessage: Messages_Type) return unbounded_string;

	function get_compatible_message(mymessage: Gvalue) return messages_Type;

	function get_compatible_message(mymessage: String) return messages_Type;

end graphical_editor.messages;