with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;
with Systems;               use Systems;
with Framework; use Framework;
with unbounded_strings;     use unbounded_strings;
use unbounded_strings.unbounded_string_list_package;

package graphical_editor is 

  -- Directory where to read glade files

   Glade_path: Unbounded_String := install_path & "glade_files/";


   -- The working project
   --
   Sys : System;

   -- List of directory where to read AADL or XML files
   --
   Project_File_Dir_List : unbounded_string_list;

   -- File name of the working XML/AADL project files
   --
   Xml_Project_File_Name  : Unbounded_String;
   Aadl_Project_File_Name : unbounded_string_list;

   -- File name of the working XML event table file
   --
   Xml_Event_Table_File_Name : Unbounded_String;

   -- Is the project modified ? should we have to save it ?
   --
   Is_Saved : Boolean := true;
   Is_New   : Boolean := false;

   -- Processor name on which we should compute something
   --
   Last_Selected_Processor : Unbounded_String;

   -- The name of the file in which the event table has to be saved
   --
   Event_Table_File_Name : Unbounded_String;

   -- Sub programs do project management
   --
   procedure Do_New;
   procedure Do_Open;
   procedure Do_Save;
   procedure Do_Save_As;
   procedure Do_Exit;
   procedure Do_Aadl_Export;
   procedure Do_Aadl_Import;

--end Project;

end graphical_editor;