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 Ada.Text_IO; use Ada.Text_IO;

with Gtkada.Builder; use Gtkada.Builder;
with Gtk.Tree_Model;  use Gtk.Tree_Model;
with Glib;      use Glib;
with Event_Analyzers;    use Event_Analyzers;
with Event_Analyzer_set;    use Event_Analyzer_set;
with Gtk.Text_Iter;    use Gtk.Text_Iter;
with Gtk.List_Store;   use Gtk.List_Store;
with Gtk.Tree_View;  use Gtk.Tree_View;
with Glib;      use Glib;
with Glib.Object; use Glib.Object;
with Glib.Values; use Glib.Values;
with Framework_Config;                                     use Framework_Config;
with Translate;                                            use Translate;

with graphical_editor.read_event_analyzers; use graphical_editor.read_event_analyzers;

with graphical_editor.user_message;    use graphical_editor.user_message;
with GNAT.Current_Exception;                               use GNAT.Current_Exception;

package body graphical_editor.event_analyzers is

procedure Initialize_Event_Analyzer(my_tab: in out table_widget_id ; Object : access Gtkada_Builder_Record'Class) is 

	ob1: GObject:= Get_Object(Object, "textbuffer2");
	ob2: GObject:= Get_Object(Object, "textbuffer1");
	ob3: GObject:= Get_Object(Object, "liststore1");
	ob4: GObject:= Get_Object(Object, "treeview1");
	wid1: t_widget := (ptype => buffer_string, buffer_value => Gtk_Text_Buffer(ob1));
	wid2: t_widget := (ptype => buffer_string, buffer_value => Gtk_Text_Buffer(ob2));
	wid3: t_widget := (ptype => lists, list_value => Gtk_List_Store(ob3));
	wid4: t_widget := (ptype => view, view_value => Gtk_Tree_View(ob4));
	wid5: t_widget := (ptype => window, window_value => event_analyser_Window);

begin
	my_tab(1..Event_Analyzer_table_length) := (new t_widget'(wid1), new t_widget'(wid2), new t_widget'(wid3), new t_widget'(wid4), 
	new t_widget'(wid5));
end Initialize_Event_Analyzer;

 procedure Check_Event_Analyzer(my_tab: in out table_widget_id ; Object : access Gtkada_Builder_Record'Class; 
Error_Message: in out Unbounded_String; Ok: in out Boolean) is 

	file_name : unbounded_string;

begin
	file_name := get_value_buffer_string(Gtk_Text_Buffer(my_tab(2).buffer_value));
	if (file_name = "") then
		Ok := False;
		Error_Message := Lb_Define_Event_Analyzers_Before (Current_Language);
		return;
	end if;

	Check_Event_Analyzer (sys.Event_Analyzers, File_Name);

	   exception
      when others =>
         Ok            := False;
         Error_Message := To_Unbounded_String (Exception_Message);

end Check_Event_Analyzer;

procedure Add_In_Sys_Event_Analyzer(my_tab: in out table_widget_id ; Object : access Gtkada_Builder_Record'Class) is 
	file_name, name : unbounded_string;
begin
	file_name := get_value_buffer_string(Gtk_Text_Buffer(my_tab(2).buffer_value));
	name := get_value_buffer_string(Gtk_Text_Buffer(my_tab(1).buffer_value));

	Add_Event_Analyzer (sys.Event_Analyzers, Name, File_Name); 


	exception
	when Event_Analyzer_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_In_Sys_Event_Analyzer;

procedure Deleted_In_Sys_Event_Analyzer(my_tab: in out table_widget_id ; Object : access Gtkada_Builder_Record'Class) is 
	An_Event_Analyzer     : Event_Analyzer_Ptr;
	name: unbounded_string;
begin
	name := get_value_buffer_string(Gtk_Text_Buffer(my_tab(1).buffer_value));
	An_Event_Analyzer := Search_Event_Analyzer (Sys.Event_Analyzers, name);
	delete (Sys.Event_Analyzers, An_Event_Analyzer);
end Deleted_In_Sys_Event_Analyzer;

procedure Show_In_Sys_Event_Analyzer(my_tab: in out table_widget_id ; Object : access Gtkada_Builder_Record'Class) is 

begin
	null;
end Show_In_Sys_Event_Analyzer;

procedure Modify_In_Sys_Event_Analyzer(my_tab: in out table_widget_id ; Object : access Gtkada_Builder_Record'Class; name: unbounded_string) is 
	An_Event_Analyzer, An_Event_Analyzer_Buffer     : Event_Analyzer_Ptr;

begin
	An_Event_Analyzer := Search_Event_Analyzer (Sys.Event_Analyzers, name);
	An_Event_Analyzer_Buffer := An_Event_Analyzer;  
	
	An_Event_Analyzer_Buffer.cheddar_private_id := An_Event_Analyzer.cheddar_private_id;
	An_Event_Analyzer_Buffer.event_analyzer_source_file_name := get_value_buffer_string(Gtk_Text_Buffer(my_tab(2).buffer_value));
	An_Event_Analyzer_Buffer.name := get_value_buffer_string(Gtk_Text_Buffer(my_tab(1).buffer_value));

	Check_Event_Analyzer (sys.Event_Analyzers, An_Event_Analyzer_Buffer.event_analyzer_source_file_name);
	delete (Sys.Event_Analyzers, An_Event_Analyzer);
	Add_Event_Analyzer (sys.Event_Analyzers, An_Event_Analyzer_Buffer.name, An_Event_Analyzer_Buffer.event_analyzer_source_file_name);

	exception
	when Event_Analyzer_Set.Invalid_Parameter =>
	begin
		Show_Message_Box (Exception_Message);
		return;
	end;

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

procedure Read_Event_Analyzer (Object : access Gtkada_Builder_Record'Class) is 
begin
	graphical_editor.read_event_analyzers.Show_file_chooser_Dialog;

end Read_Event_Analyzer;

package Event_Analyzer_callbacks is new generic_callbacks(Number_of_widget => Event_Analyzer_table_length, 
	Initialize => initialize_Event_Analyzer, Check => Check_Event_Analyzer, Add_In_Sys => Add_In_Sys_Event_Analyzer, 
	Deleted_In_Sys => Deleted_In_Sys_Event_Analyzer, Modify_In_Sys => Modify_In_Sys_Event_Analyzer, 
	Show_In_Sys => Show_In_Sys_Event_Analyzer);  use Event_Analyzer_callbacks;

procedure Show_Event_Analyzer_Widget is
	Builder : Gtkada_Builder;
	Error   : Glib.Error.GError;

	An_Event_Analyzer : Event_Analyzer_Ptr;
	My_Iterator       : Event_Analyzers_Iterator;
	tree_iter: Gtk_Tree_Iter;
	liststore: GObject;

begin

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

	Sys_buffer := sys;
	
	read_buffer := GTK_Text_Buffer(Get_Object(Builder, "textbuffer1"));

	liststore:= Get_Object(Builder, "liststore1");
	reset_iterator (Sys.Event_Analyzers, My_Iterator);
	if not is_empty (Sys.Event_Analyzers) then
		loop
		current_element (sys.Event_Analyzers, An_Event_Analyzer, My_Iterator);
		Append(Gtk_List_Store(liststore), tree_iter);

		Gtk.List_Store.Set(Gtk_List_Store(liststore), tree_iter, 1, 
		To_String (An_Event_Analyzer.event_analyzer_source_file_name));
		Gtk.List_Store.Set(Gtk_List_Store(liststore), tree_iter, 0, 
		To_String (An_Event_Analyzer.name));

		exit when is_last_element (sys.Event_Analyzers, My_Iterator);
		next_element (sys.Event_Analyzers, My_Iterator);
	         end loop;
      end if;

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

	Gtkada.Builder.Register_Handler
	(Builder      => Builder,
	Handler_Name => "on_button7_clicked", 
	Handler      => Read_Event_Analyzer'Access); 

	Gtkada.Builder.Register_Handler
	(Builder      => Builder,
	Handler_Name => "on_button6_clicked", 
	Handler      => Event_Analyzer_callbacks.Add_View'Access); 

	Gtkada.Builder.Register_Handler
	(Builder      => Builder,
	Handler_Name => "on_button5_clicked", 
	Handler      => Event_Analyzer_callbacks.Modify_Lign'Access); 

	Gtkada.Builder.Register_Handler
	(Builder      => Builder,
	Handler_Name => "on_button4_clicked", 
	Handler      => Event_Analyzer_callbacks.Delected_Lign_Selected'Access); 

	Gtkada.Builder.Register_Handler
	(Builder      => Builder,
	Handler_Name => "on_button2_clicked", 
	Handler      => Event_Analyzer_callbacks.Cancel_View'Access);

	Gtkada.Builder.Register_Handler
	(Builder      => Builder,
	Handler_Name => "on_button1_clicked", 
	Handler      => Event_Analyzer_callbacks.Close_View'Access);

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

end graphical_editor.event_analyzers;