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 Glib;      use Glib;
with Glib.Object; use Glib.Object;
with Gtk.Combo_Box; 		use Gtk.Combo_Box;
with Gtk.List_Store;   use Gtk.List_Store;
with Gtk.Tree_Model;  use Gtk.Tree_Model;
with Gtk.Tree_View;  use Gtk.Tree_View;

with deployments; use deployments;
with deployment_set; use deployment_set;

with graphical_editor.cores; use graphical_editor.cores;

package body graphical_editor.dynamic_deployments is

procedure Show_dynamic_Deployment_Widget is 

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

	My_Iterator : deployments_Iterator;
	A_deployment: generic_deployment_ptr; 
	tree_iter: Gtk_Tree_Iter;
	liststore: GObject;

begin
	Gtk.Main.Init;
	Gtk_New (Builder);
	Error := Add_From_File (Builder, to_string(Glade_path) & "dynamic_deployment.glade");
	if Error /= null then
		Ada.Text_IO.Put_Line ("Error : " & Get_Message (Error));
		Error_Free (Error);
		return;
	end if;

	Sys_buffer := sys;

	liststore:= Get_Object(Builder, "liststore1");
	reset_iterator (sys.Deployments, My_Iterator);
	if not is_empty (sys.Deployments) then
		loop
		current_element (sys.Deployments, A_deployment, My_Iterator);
		--put_line(Deployments_Type'image(a_deployment.deployment_type));
		--a_deployment.deployment_type := dynamic_deployment_type;
		if A_deployment.deployment_type = DYNAMIC_DEPLOYMENT_TYPE then 
		Append(Gtk_List_Store(liststore), tree_iter);
		Gtk.List_Store.Set(Gtk_List_Store(liststore), tree_iter, 0, To_String (A_deployment.name));
		
		Gtk.List_Store.Set(Gtk_List_Store(liststore), tree_iter, 1, To_String(get_compatible_scheduler 
	 	(dynamic_deployment_ptr(A_deployment).allocation_parameters.scheduler_type)));
		Gtk.List_Store.Set(Gtk_List_Store(liststore), tree_iter, 2, 
			Gint(dynamic_deployment_ptr(A_deployment).allocation_parameters.quantum));
		Gtk.List_Store.Set(Gtk_List_Store(liststore), tree_iter, 3, To_String(get_compatible_preemptive 
		(dynamic_deployment_ptr(A_deployment).allocation_parameters.preemptive_type)));
		end if;
		exit when is_last_element (sys.Deployments, My_Iterator);
		next_element (sys.Deployments, My_Iterator);
		end loop;
	end if;

	--Gtkada.Builder.Register_Handler
	--(Builder      => Builder,
	--Handler_Name => "on_treeview1_cursor_changed", 
	--Handler      => dynamic_deployment_callbacks.Show_Lign_Selected'Access);  

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

end Show_dynamic_Deployment_Widget;

end graphical_editor.dynamic_deployments;