-----------------------------------------------------------------------
--                MAST Graphical Periodic Task Editor                --
--     Modelling and Analysis Suite for Real-Time Applications       --
--                                                                   --
--                       Copyright (C) 2001-2019                     --
--                 Universidad de Cantabria, SPAIN                   --
--                                                                   --
-- Authors: Michael Gonzalez       mgh@unican.es                     --
--                                                                   --
-- This program is free software; you can redistribute it and/or     --
-- modify it under the terms of the GNU General Public               --
-- License as published by the Free Software Foundation; either      --
-- version 3 of the License, or (at your option) any later version.  --
--                                                                   --
-- This program is distributed in the hope that it will be useful,   --
-- but WITHOUT ANY WARRANTY; without even the implied warranty of    --
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU --
-- General Public License for more details.                          --
--                                                                   --
-- You should have received a copy of the GNU General Public         --
-- License along with this program; if not, see                      --
-- <http://www.gnu.org/licenses/>.                                   --
--                                                                   --
-----------------------------------------------------------------------

with Gtk.Dialog; use Gtk.Dialog;
with Gtk.Alignment; use Gtk.Alignment;
with Gtk.Label; use Gtk.Label;
with Gtk.Button; use Gtk.Button;
with Gtk.Window; use Gtk.Window;
with Pt_Editor_Pkg;

package Dialog_Yes_No_Pkg is

   type Dialog_Yes_No_Record is new Gtk_Dialog_Record with record
      Alignment10 : Gtk_Alignment;
      Label12 : Gtk_Label;
      Dialog_Yes_Button : Gtk_Button;
      Dialog_No_Button : Gtk_Button;
   end record;
   type Dialog_Yes_No_Access is access all Dialog_Yes_No_Record'Class;

   procedure Gtk_New 
     (Dialog_Yes_No : out Dialog_Yes_No_Access; 
      Parent : Gtk_Window:=Gtk_Window(Pt_Editor_Pkg.Pt_Editor));
   
   procedure Initialize 
     (Dialog_Yes_No : access Dialog_Yes_No_Record'Class; 
      Parent : Gtk_Window:=Gtk_Window(Pt_Editor_Pkg.Pt_Editor));

   procedure Run_Dialog
     (Message : String; 
      Response_Is_Yes : out Boolean;
      Parent : Gtk_Window:=Gtk_Window(Pt_Editor_Pkg.Pt_Editor));

   procedure Run_Dialog
     (Message, Button1, Button2 : String;
      Response_Is_1 : out Boolean; 
      Parent : Gtk_Window:=Gtk_Window(Pt_Editor_Pkg.Pt_Editor));

   Dialog_Yes_No : Dialog_Yes_No_Access;

end Dialog_Yes_No_Pkg;
