with Gtk.Main;
with Gtk.Tooltip;
with Ada.Text_IO; use Ada.Text_IO;

with graphical_editor.scheduling_refs; use graphical_editor.scheduling_refs;
with graphical_editor.manuals; use graphical_editor.manuals;
with graphical_editor.caches; use graphical_editor.caches;
with graphical_editor.cores; use graphical_editor.cores;
with graphical_editor.adress_spaces; use graphical_editor.adress_spaces;
with graphical_editor.processors; use graphical_editor.processors;
with graphical_editor.networks; use graphical_editor.networks;
with graphical_editor.oxmls; use graphical_editor.oxmls;
with graphical_editor.save_xmls; use graphical_editor.save_xmls;
with graphical_editor.tasks; use graphical_editor.tasks;
with graphical_editor.messages; use graphical_editor.messages;
with graphical_editor.resources; use graphical_editor.resources;
with graphical_editor.abouts; use graphical_editor.abouts;
with graphical_editor.buffers; use graphical_editor.buffers;
with graphical_editor.event_analyzers; use graphical_editor.event_analyzers;
with graphical_editor.scheduling_simulations; use graphical_editor.scheduling_simulations;

with Project; use Project;

with Glib;      use Glib;
with Glib.Object; use Glib.Object;
with Gtk.Widget; use Gtk.Widget;

--with Schedule_From_To_Pkg; use Schedule_From_To_Pkg;
 
package body graphical_editor.cheddar_callbacks is

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

 	Do_New;
      --- clear_workspace qu'il faut ecrire ... conformément à la nouvelle approche ..

   end initialyse_system;
 
procedure Quit (Object : access Gtkada_Builder_Record'Class) is
      pragma Unreferenced (Object);
      my_object : GObject;
   begin
	my_object:=Get_Object(Object, "window1");
	Unref(my_object);
	Hide(Gtk_Widget(my_object));
	Destroy_Cb(Gtk_Widget(my_object));
end Quit;

   function QuitAboutDialog (Object : access Gtkada_Builder_Record'Class) return boolean is
      pragma Unreferenced (Object);
   begin
      Gtk.Main.Main_quit;
      return false;
   end QuitAboutDialog;

   procedure about (Object : access Gtkada_Builder_Record'Class) is
      pragma Unreferenced (Object);
   begin
      graphical_editor.abouts.Show_About_Widget;
   end about;

  procedure manual (Object : access Gtkada_Builder_Record'Class) is
      pragma Unreferenced (Object);
   begin
      graphical_editor.manuals.Show_Manual_Widget;

-- à ce niveau, j'appelle juste on_manual_activate de root_window_pkg ..
   end manual;

  procedure cache (Object : access Gtkada_Builder_Record'Class) is
      pragma Unreferenced (Object);
   begin
      graphical_editor.caches.Show_Cache_Widget;
   end cache;

  procedure buffer (Object : access Gtkada_Builder_Record'Class) is
      pragma Unreferenced (Object);
   begin
      graphical_editor.buffers.mmi;
   end buffer;

  procedure scheduling_simulation (Object : access Gtkada_Builder_Record'Class) is
      pragma Unreferenced (Object);
   begin
      graphical_editor.scheduling_simulations.Show_scheduling_options_Widget;
   end scheduling_simulation;

  procedure core (Object : access Gtkada_Builder_Record'Class) is
      pragma Unreferenced (Object);
   begin
      graphical_editor.cores.Show_Core_Widget;
   end core;

  procedure event_analyzer (Object : access Gtkada_Builder_Record'Class) is
      pragma Unreferenced (Object);
   begin
      graphical_editor.event_analyzers.mmi;
   end event_analyzer;

  procedure message (Object : access Gtkada_Builder_Record'Class) is
      pragma Unreferenced (Object);
   begin
      graphical_editor.messages.mmi;
   end message;

  procedure resource (Object : access Gtkada_Builder_Record'Class) is
      pragma Unreferenced (Object);
   begin
      graphical_editor.resources.Show_Resource_Widget;
   end resource;

procedure adress_space (Object : access Gtkada_Builder_Record'Class) is
      pragma Unreferenced (Object);
begin
	graphical_editor.adress_spaces.Show_Adress_spaces_Widget;
end adress_space;

  procedure taskc (Object : access Gtkada_Builder_Record'Class) is
      pragma Unreferenced (Object);
   begin
      graphical_editor.tasks.Show_Tasks_Widget;
   end taskc;

procedure processor (Object : access Gtkada_Builder_Record'Class) is
	pragma Unreferenced (Object);
begin
	graphical_editor.processors.Show_Processor_Widget;
end processor;

   procedure network (Object : access Gtkada_Builder_Record'Class) is
      pragma Unreferenced (Object);
   begin
      graphical_editor.networks.Show_Network_Widget;
   end network;

  procedure open_xml (Object : access Gtkada_Builder_Record'Class) is
      pragma Unreferenced (Object);
   begin
      graphical_editor.oxmls.Show_file_chooser_Dialog;
   end open_xml;

  procedure save_xml (Object : access Gtkada_Builder_Record'Class) is
      pragma Unreferenced (Object);
   begin
      graphical_editor.save_xmls.Show_file_chooser_Dialog;
   end save_xml;


  procedure scheduling_ref (Object : access Gtkada_Builder_Record'Class) is
      pragma Unreferenced (Object);
   begin
      graphical_editor.scheduling_refs.Show_Sched_Reference_Widget;
   end scheduling_ref;

end graphical_editor.cheddar_callbacks;