with Resources; use Resources; with Gtkada.Builder; use Gtkada.Builder; with generic_callbacks; with generic_package_widget; use generic_package_widget; 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; procedure Add_In_Sys_Resource(my_tab: in out table_widget_id ; Object : access Gtkada_Builder_Record'Class); 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); end graphical_editor.resources;