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 :=14; procedure Show_Resource_Widget; procedure harmonize_comboxbox (Object : access Gtkada_Builder_Record'Class); 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; function get_compatible_prirority_assignment(mypriorityassignment: Priority_Assignment_Type) return unbounded_string; function get_compatible_prirority_assignment(mypriorityassignment: Gvalue) return Priority_Assignment_Type; function get_compatible_prirority_assignment(mypriorityassignment: String) return Priority_Assignment_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;