with Resources; use Resources; 
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.resources is
	
	resource_table_length : constant natural :=12;

	procedure Show_Resource_Widget;

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

	function get_compatible_protocol(myprotocol: Resources_Type) return unbounded_string;

	function get_compatible_protocol(myprotocol: Gvalue) return Resources_Type;

	function get_compatible_protocol(myprotocol: String) return Resources_Type;

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

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

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

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

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

	procedure Add_View_Task (Object : access Gtkada_Builder_Record'Class);

	procedure Delected_lign_view (Object : access Gtkada_Builder_Record'Class);

	procedure Modify_lign_view (Object : access Gtkada_Builder_Record'Class);

	procedure Show_Lign_Resource (Object : access Gtkada_Builder_Record'Class);

end graphical_editor.resources;