with Gtkada.Builder; use Gtkada.Builder;
with Gtk;            use Gtk;
with Gtk.Main;       use Gtk.Main;
with Glib.Error;     use Glib.Error;
with Gtk.Widget;     use Gtk.Widget;
with Ada.Text_IO; use Ada.Text_IO;
with Processors;   use Processors;
with Processor_Set; 	use Processor_Set;

with Glib;      use Glib;
with Glib.Object; use Glib.Object;
with graphical_editor.user_message;    use graphical_editor.user_message;
with Gtk.Combo_Box; use Gtk.Combo_Box;
with Translate;       use Translate;
with Framework_Config;     use Framework_Config;
with graphical_editor.priorities_dm_callbacks; use graphical_editor.priorities_dm_callbacks;
with Tasks;                          use Tasks;
with Task_Set;                       use Task_Set;
use Task_Set.Generic_Task_Set;

package body graphical_editor.priorities_dm is

procedure Show_Priorities_Dm_Widget is

	Builder : Gtkada_Builder;
	Error   : Glib.Error.GError;

	A_Processor : Generic_Processor_Ptr;
	My_Processor_Iterator : Processors_Iterator;
	my_combo_cpu: GObject;

begin
	Gtk.Main.Init;

	Gtk_New (Builder);
	Error := Add_From_File (Builder, to_string(Glade_path) & "set_priorities_dm.glade");

	if Error /= null then
	Ada.Text_IO.Put_Line ("Error : " & Get_Message (Error));
	Error_Free (Error);
	return;
	end if;

	-- test sur les tâches ...

	if (get_number_of_elements (Sys.Tasks) = 0) then
         Show_Message_Box (Lb_Define_Tasks_Before (Current_Language));
	end if;

	-- test sur les processeurs ...

	my_combo_cpu := Get_Object(Builder, "combobox1");
	reset_iterator (sys.Processors, My_Processor_Iterator);
	if not is_empty (sys.Processors) then 
	loop
	current_element (sys.Processors, A_Processor, My_Processor_Iterator);
	
	Append_Text (Gtk_Combo_Box(my_combo_cpu), To_String(A_Processor.name));
	exit when is_last_element (sys.Processors, My_Processor_Iterator);
		next_element (sys.Processors, My_Processor_Iterator);
	end loop;
	else
	Show_Message_Box
	(Lb_Define_processors_Before (Current_Language));
	end if;

	Register_Handler
	(Builder      => Builder,
	Handler_Name => "on_button1_clicked", 
	Handler      => graphical_editor.priorities_dm_callbacks.set_priorities_dm'Access);  

	Register_Handler
	(Builder      => Builder,
	Handler_Name => "on_button2_clicked", 
	Handler      => graphical_editor.priorities_dm_callbacks.close_widget'Access);

	Do_Connect (Builder);

	Gtk.Widget.Show_All (Get_Widget (Builder, "window1"));

	Gtk.Main.Main;
	Unref (Builder);
 
end Show_Priorities_Dm_Widget;


end graphical_editor.priorities_dm;