with Gtk.Menu_Item; use Gtk.Menu_Item;
with Gtk;            use Gtk;
with Gtk.Main;       use Gtk.Main;
with Glib.Error;     use Glib.Error;
with Gtk.Widget;     use Gtk.Widget;
with Gtk.Dialog;     use Gtk.Dialog;
with Gtk.About_Dialog; use Gtk.About_Dialog;
with Gtk.Label;        use Gtk.Label;
with Glib.Object; use Glib.Object;
with Gtk.Text_Buffer; use Gtk.Text_Buffer;
with Gtk.Combo_Box; use Gtk.Combo_Box;
with Gtk.Text_Iter;    use Gtk.Text_Iter;
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 Gtk.Tree_View_Column;  use Gtk.Tree_View_Column;
with Glib;      use Glib;
with Glib.Object; use Glib.Object;
with Glib.Values; use Glib.Values;
with Ada.Text_IO;      use Ada.Text_IO;
with unbounded_strings;     use unbounded_strings;
with standards_io; use standards_io;
with Ada.Numerics.Aux;      use Ada.Numerics.Aux;
with graphical_editor; use graphical_editor;
with Processors;                                           use Processors;
with Processor_Set;                                         use Processor_Set;
with Scheduler;                                            use Scheduler;
with Scheduler.user_defined.interpreted.Automata;  use  Scheduler.user_defined.interpreted.Automata;
with Scheduler_Interface;                                  use Scheduler_Interface;
with graphical_editor.user_message;    use graphical_editor.user_message;
with translate; use translate;
with GNAT.Current_Exception;                               use GNAT.Current_Exception;
with Framework_Config;                                     use Framework_Config;   

with systems; use systems;


package body generic_callbacks is 

procedure Add_View (Object : access Gtkada_Builder_Record'Class) is 

	pragma Unreferenced (Object);
	tree_iter: Gtk_Tree_Iter;
	Ok: Boolean := True;
	Error_Message : Unbounded_String;
	Error   : Glib.Error.GError;
 
begin

	Initialize(tab, Object);

	Check(tab, Object, Error_Message, Ok);
	if not Ok then
		Show_Message_Box (Error_Message);
		return;
	end if;

	Add_In_Sys(tab, Object);

	Append(Gtk_List_Store(tab(Number_of_widget-2).list_value), tree_iter);

	for i in 1..Number_of_widget-3
	loop
		if tab(i).ptype = buffer_string then
			if (to_string(get_value_buffer_string(Gtk_Text_Buffer(tab(i).buffer_value))) = "") then 
				Gtk.List_Store.Set(Gtk_List_Store(tab(Number_of_widget-2).list_value), tree_iter, Gint(i)-1, "");
			else
				Gtk.List_Store.Set(Gtk_List_Store(tab(Number_of_widget-2).list_value), tree_iter, Gint(i)-1, 
				to_string (get_value_buffer_string(Gtk_Text_Buffer(tab(i).buffer_value))));
			end if;
		end if;
	if tab(i).ptype = buffer_integer then
		if (to_string(get_value_buffer_string(Gtk_Text_Buffer(tab(i).buffer_value))) = "") then 
			Gtk.List_Store.Set(Gtk_List_Store(tab(Number_of_widget-2).list_value), tree_iter, Gint(i)-1, Gint(0));
		else
			Gtk.List_Store.Set(Gtk_List_Store(tab(Number_of_widget-2).list_value), tree_iter, Gint(i)-1, 
			Gint(get_value_buffer_integer(Gtk_Text_Buffer(tab(i).buffer_value))));
		end if;
	end if;
	if tab(i).ptype = combo then 
		Gtk.List_Store.Set(Gtk_List_Store(tab(Number_of_widget-2).list_value), tree_iter, Gint(i)-1, 
		Get_Active_Text(Gtk_Combo_Box(tab(i).combo_value)));
	end if;
	end loop;
	
end Add_View;

procedure Modify_Lign (Object : access Gtkada_Builder_Record'Class) is 

	pragma Unreferenced (Object);
	tree_iter: Gtk_Tree_Iter;
	path1: Gtk_Tree_Path;
	focus1: Gtk_Tree_View_Column;

begin
	Initialize(tab, Object);
	Get_Cursor(Gtk_Tree_View(tab(Number_of_widget-1).view_value), path1, focus1);
	if path1 /= null and focus1 /= null then 
	tree_iter:= get_iter(Gtk_Tree_Model(tab(Number_of_widget-2).list_value), path1);
	Modify_In_Sys(tab, Object, 
	to_unbounded_string(Gtk.Tree_Model.Get_String(Gtk_Tree_Model(tab(Number_of_widget-2).list_value), tree_iter, Gint(0))));
	for i in 1..Number_of_widget-3
	loop
		if tab(i).ptype = buffer_string then 
			Gtk.List_Store.Set(Gtk_List_Store(tab(Number_of_widget-2).list_value), tree_iter, Gint(i)-1, 
			to_string(get_value_buffer_string(Gtk_Text_Buffer(tab(i).buffer_value))));
		end if;
		if tab(i).ptype = buffer_integer then 
			Gtk.List_Store.Set(Gtk_List_Store(tab(Number_of_widget-2).list_value), tree_iter, Gint(i)-1, 
			Gint(get_value_buffer_integer(Gtk_Text_Buffer(tab(i).buffer_value))));
		end if;
		if tab(i).ptype = combo then 
			Gtk.List_Store.Set(Gtk_List_Store(tab(Number_of_widget-2).list_value), tree_iter, Gint(i)-1, 
			Get_Active_Text(Gtk_Combo_Box(tab(i).combo_value)));
		end if;
	end loop;
	else 
	Show_Message_Box (Lb_Select_Line_Before (Current_Language));
	end if;

end Modify_Lign;

procedure Show_Lign_Selected (Object : access Gtkada_Builder_Record'Class) is

	pragma Unreferenced (Object);
	tree_iter: Gtk_Tree_Iter;
	path1: Gtk_Tree_Path;
	focus1: Gtk_Tree_View_Column;
	combo_text: unbounded_string;
	combo_int : integer;

begin

	Initialize(tab, Object);
	Get_Cursor(Gtk_Tree_View(tab(Number_of_widget-1).view_value), path1, focus1);
	if path1 /= null and focus1 /= null then 
	tree_iter:= get_iter(Gtk_Tree_Model(tab(Number_of_widget-2).list_value), path1);
	for i in 1..Number_of_widget-3
	loop
		if tab(i).ptype = buffer_string then 
		Set_Text(Gtk_Text_Buffer(tab(i).buffer_value), 
		Gtk.Tree_Model.Get_String(Gtk_Tree_Model(tab(Number_of_widget-2).list_value), tree_iter, Gint(i)-1));
		end if;

		if tab(i).ptype = buffer_integer then 
		Set_Text(Gtk_Text_Buffer(tab(i).buffer_value), 
		integer'image(integer(Gtk.Tree_Model.Get_Int(Gtk_Tree_Model(tab(Number_of_widget-2).list_value), tree_iter, Gint(i)-1))));
		end if;
	
		if tab(i).ptype = combo then 
		combo_text := to_unbounded_string(Gtk.Tree_Model.Get_String(Gtk_Tree_Model(tab(Number_of_widget-2).list_value), 
		tree_iter, Gint(i)-1));
		--put_line(to_string(combo_text));
		Set_Active(Gtk_Combo_Box(tab(i).combo_value), Gint(get_int_combo(Gtk_Combo_Box(tab(i).combo_value), combo_text)));
		end if;
	end loop;
	Show_In_Sys(tab, Object);
	end if;
	-- voir comment faire le tri ... pas encore au point ...
	--Clicked(focus1);
	--Set_Sort_Column_Id(focus1, 1);
  
end Show_Lign_Selected;

procedure Delected_Lign_Selected (Object : access Gtkada_Builder_Record'Class) is

	pragma Unreferenced (Object);
	tree_iter: Gtk_Tree_Iter;
	path1: Gtk_Tree_Path;
	focus1: Gtk_Tree_View_Column;

begin

	Initialize(tab, Object);
	Get_Cursor(Gtk_Tree_View(tab(Number_of_widget-1).view_value), path1, focus1);
	if path1 /= null and focus1 /= null then 
		tree_iter:= get_iter(Gtk_Tree_Model(tab(Number_of_widget-2).list_value), path1);
		Deleted_In_Sys(tab, Object);
		Gtk.List_Store.Remove(Gtk_List_Store(tab(Number_of_widget-2).list_value), tree_iter);
		for i in 1..Number_of_widget-3
		loop
			if tab(i).ptype = buffer_string then 
				Set_Text(Gtk_Text_Buffer(tab(i).buffer_value), "");
			end if;

			if tab(i).ptype = buffer_integer then 
				Set_Text(Gtk_Text_Buffer(tab(i).buffer_value), "");
			end if;

			if tab(i).ptype = combo then
				Set_Active(Gtk_Combo_Box(tab(i).combo_value), Gint(-1));
			end if;

			if tab(i).ptype = lists then
				Gtk.List_Store.Clear(Gtk_List_Store(tab(i).list_value));
				--Set_Active(Gtk_Tree_View(tab(i).list_value), Gint(-1));
			end if;
		end loop;
	else 
		Show_Message_Box (Lb_Select_Line_Before (Current_Language));
	end if;

end Delected_Lign_Selected;

procedure Cancel_View  (Object : access Gtkada_Builder_Record'Class) is 
	pragma Unreferenced (Object);
	my_widget : GObject;

begin

	my_widget:=Get_Object(Object, "window1");
	duplicate(sys_buffer, sys);

	Destroy_cb(Gtk_Widget(my_widget));
	gtk.main.main_quit;
end Cancel_View;

procedure Close_View (Object : access Gtkada_Builder_Record'Class) is

	pragma Unreferenced (Object);
	my_widget : GObject;

begin
	Is_New   := False;
	Is_Saved := False;
	my_widget:=Get_Object(Object, "window1");
	Destroy_cb(Gtk_Widget(my_widget));
	gtk.main.main_quit;
end Close_View;

end generic_callbacks;