with Call_Scheduling_Framework;         use Call_Scheduling_Framework;
with Framework;                  use Framework;
with Framework_Config;                  use Framework_Config;
with Translate;                         use Translate;
with Multiprocessor_Services;           use Multiprocessor_Services;
with Multiprocessor_Services_Interface; use Multiprocessor_Services_Interface;
use Multiprocessor_Services_Interface.Scheduling_Result_Per_Processor_Package;
with Multiprocessor_Services;           use Multiprocessor_Services;
with Gtkada.Dialogs;                    use Gtkada.Dialogs;
with Gtk;                               use Gtk;
with Gtk.Main;                          use Gtk.Main;

package body graphical_editor is

	
   procedure Do_New is
   begin

--     if Root_Window /= null then
--
        if (not Is_Saved) then
           if (not Is_New) then
               if Message_Dialog
                     (To_String
                        (Lb_Not_Saved_Project (Current_Language) &
                         ASCII.LF &
                          Lb_Continue (Current_Language)),
                    Confirmation,
                     Button_Yes or Button_Cancel,
                     Button_Cancel, -- default
                     "", -- help message
                      "") /=
                  Button_Yes
               then
                  return;
              end if;
          end if;
         end if;
         --Clear_Work_Space;
        -- null;


      Initialize (Sys);
      Xml_Project_File_Name := To_Unbounded_String ("");
      initialize (Aadl_Project_File_Name);
      Xml_Event_Table_File_Name :=
         To_Unbounded_String ("default_event_table.xml");

      Is_Saved := False;
      Is_New   := True;

      Event_Table_File_Name := empty_string;
      initialize (Sched.all);

   end Do_New;

   procedure Do_Open is
   begin
---afficher ce message au centre ...
      if (not Is_Saved) then
        if (not Is_New) then
            if Message_Dialog
                 (To_String
                    (Lb_Not_Saved_Project (Current_Language) &
                      ASCII.LF &
                      Lb_Continue (Current_Language)),
                  Confirmation,
                   Button_Yes or Button_Cancel,
                   Button_Cancel, -- default
                  "", -- help message
                  "") /=
              Button_Yes
           then
               return;
           end if;
        end if;
     end if;

      --Clear_Work_Space;

      --null;

 --     Gtk_New (Open_File_Selection);
  --    Show_All (Open_File_Selection);

   end Do_Open;

   procedure Do_Save is
   begin

--      if Graph_Window /= null then
--         Get_Coordinates (Graph_Window.Buffer, Sys);
--      end if;

      if (Xml_Project_File_Name /= To_Unbounded_String ("")) then
         Systems.Write_To_Xml_File (Sys, Xml_Project_File_Name);

         Is_Saved := True;
--      else
 --        Gtk_New (save_file_selection);
 --        Show_All (save_file_selection);
      end if;

   end Do_Save;

   procedure Do_Aadl_Export is
   begin
  --    Gtk_New (export_aadl_selection);
   --   Show_All (export_aadl_selection);
null;
   end Do_Aadl_Export;

   procedure Do_Aadl_Import is
   begin

     if (not Is_Saved) then
       if (not Is_New) then
           if Message_Dialog
                 (To_String
                      (Lb_Not_Saved_Project (Current_Language) &
                       ASCII.LF &
                       Lb_Continue (Current_Language)),
                   Confirmation,
                   Button_Yes or Button_Cancel,
                   Button_Cancel, 
                   "",
                   "") /=
               Button_Yes
            then
               return;
            end if;
         end if;
      end if;

      --Clear_Work_Space;
      --null;

 --     Gtk_New (import_aadl_selection);
--      Show_All (import_aadl_selection);

   end Do_Aadl_Import;

procedure Do_Save_As is
begin
	null;
	-- Gtk_New (save_file_selection);
	-- Show_All (save_file_selection);
end Do_Save_As;

procedure Do_Exit is
begin
	if (not Is_Saved) then
		if (not Is_New) then
			if Message_Dialog
			(To_String
			(Lb_Not_Saved_Project (Current_Language) &
			ASCII.LF &
			Lb_Continue (Current_Language)),
			Confirmation,
			Button_Yes or Button_Cancel,
			Button_Cancel, 
			"",
			"") = Button_Yes
			then
			Gtk.Main.Gtk_Exit (0);
			else
			return;
			end if;
		end if;
	end if;
	Gtk.Main.Gtk_Exit (0);
end Do_Exit;

end graphical_editor;