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 GNAT.Current_Exception;                               use GNAT.Current_Exception;


package body generic_callbacks is 

-- faire un show_view generique ....

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;

	--Add_In_Sys(tab, Object, tree_iter);
	-- voir comment gérer le fait que mon ajout prend les valeur affichees ...
	-- le pb est qu'il ajoute sur le tableau, avant de generer l'erreur ... 
	-- bon, il n'ajoute pas ds le systeme, mais sur le tableau ..
	

	--exception
	-- ajouter ici toutes les autres exceptions particulieres ...
	--when Processor_Set.Invalid_Parameter =>
        -- begin
           -- Show_Message_Box (Exception_Message);
           -- return;
        -- end;

	--when others =>
	--begin
		--Show_Message_Box (Exception_Name & Exception_Message);
		--return;
	--end;

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);
    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 
      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;

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;

	begin

	Initialize(tab, Object);
	Get_Cursor(Gtk_Tree_View(tab(Number_of_widget-1).view_value), path1, focus1);
	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));
		put(get_int_combo(Gtk_Combo_Box(tab(i).combo_value), 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;
	-- 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);
    tree_iter:= get_iter(Gtk_Tree_Model(tab(Number_of_widget-2).list_value), path1);

    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 
    -- revoir l'utilisation ou peut être ma conception du combo, pour recuperer la valeur voulue ...
    -- voir comment mettre un combo à vide ... en fait, revoir le modèle pour un espace vide ...
    null;
    end if;

    end loop;

end Delected_Lign_Selected;

procedure Show_View (Object : access Gtkada_Builder_Record'Class) is

    pragma Unreferenced (Object);

 begin
put_line("afficher ici le tableau pour l'édition avancée des propriétés");

end Show_View;


-- il s'agit ici de advanced, pour l'édition des propriétés avancées, et non ligne suivante ....
-- donc, revoir ce callback ...
 procedure Next_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).view_value), path1, focus1);
    tree_iter:= get_iter(Gtk_Tree_Model(tab(Number_of_widget-1).list_value), path1);

    Next(Gtk_List_Store(tab(Number_of_widget-2).list_value), tree_iter);
    Set_Cursor(Gtk_Tree_View(tab(Number_of_widget).view_value), get_path(Gtk_List_Store(tab(Number_of_widget-1).list_value),     tree_iter), focus1, false);

    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 
   -- revoir l'utilisation ou peut être ma conception du combo, pour recuperer la valeur voulue ...
   Set_Active(Gtk_Combo_Box(tab(i).combo_value), 1);
   end if;

   end loop;    

end Next_Lign_Selected;

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

 begin

   Initialize(tab, Object);

    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 
    -- revoir l'utilisation ou peut être ma conception du combo, pour recuperer la valeur voulue ...
    -- voir comment mettre un combo à vide ... en fait, revoir le modèle pour un espace vide ...
    null;
    end if;

    end loop;

 end Cancel_View;

 procedure Close_View (Object : access Gtkada_Builder_Record'Class) is
 
   pragma Unreferenced (Object);
   my_widget : GObject;
 
   begin
     -- Gtk.Main.Main_Quit;

  Is_New   := False;
      Is_Saved := False;

  my_widget:=Get_Object(Object, "window1");

       Unref(my_widget);

       Hide(Gtk_Widget(my_widget));
    end Close_View;


end generic_callbacks;