------------------------------------------------------------------------------
------------------------------------------------------------------------------
-- Cheddar is a GNU GPL real-time scheduling analysis tool.
-- This program provides services to automatically check schedulability and
-- other performance criteria of real-time architecture models.
--
-- Copyright (C) 2002-2023, Frank Singhoff, Alain Plantec, Jerome Legrand,
--                          Hai Nam Tran, Stephane Rubini
--
-- The Cheddar project was started in 2002 by
-- Frank Singhoff, Lab-STICC UMR 6285, Université de Bretagne Occidentale
--
-- Cheddar has been published in the "Agence de Protection des Programmes/France" in 2008.
-- Since 2008, Ellidiss technologies also contributes to the development of
-- Cheddar and provides industrial support.
--
-- The full list of contributors and sponsors can be found in README.md
--
-- 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 2 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, write to the Free Software
-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
--
--
-- Contact : cheddar@listes.univ-brest.fr
--
------------------------------------------------------------------------------
-- Last update :
--    $Rev: 3657 $
--    $Date: 2020-12-13 13:25:49 +0100 (dim., 13 déc. 2020) $
--    $Author: singhoff $
------------------------------------------------------------------------------
------------------------------------------------------------------------------

with Text_IO;        use Text_IO;
with Ada.Numerics.Float_Random;     use Ada.Numerics.Float_Random;

with Gtkada.Builder;      use Gtkada.Builder;
with Glib;                use Glib;
with Glib.Object;         use Glib.Object;
with Gtk;                 use Gtk;
with Gtk.Main;            use Gtk.Main;
with Gtk.Combo_Box;       use Gtk.Combo_Box;
with Gtk.Combo_Box_Text;  use Gtk.Combo_Box_Text;

with editor_config;  use editor_config;
with framework_config;              use framework_config;
with translate;                     use translate;
with time_unit_events;              use time_unit_events;

with graphical_editor.generic_package_widget;
use graphical_editor.generic_package_widget;
with graphical_editor.user_message; use graphical_editor.user_message;
with graphical_editor.convert_text; use graphical_editor.convert_text;


package body graphical_editor.feasibility_test_option_callbacks is

   procedure ok (object : access gtkada_builder_record'class) is
      my_widget    : gobject;
      combo_string : Unbounded_String;
      combo_value  : all_enumeration_type_ptr;
   begin

      combo_string :=
        To_Unbounded_String
          (Get_Active_Text (gtk_combo_box_text (Get_Object (object, "combobox1"))));
      combo_value    := to_type (combo_string);
      wcrt_with_crpd := combo_value.crpd_computation_approach_value;

      combo_string :=
        To_Unbounded_String
          (Get_Active_Text (gtk_combo_box_text (Get_Object (object, "combobox2"))));
      combo_value                    := to_type (combo_string);
      wcrt_with_memory_interferences :=
        combo_value.memory_interference_computation_approach_value;

      my_widget := Get_Object (object, "window1");
      Destroy (gtk_widget (my_widget));
      Gtk.Main.Main_Quit;

   end ok;

   procedure cancel (object : access gtkada_builder_record'class) is
      my_widget : gobject;

   begin
      my_widget := Get_Object (object, "window1");
      Destroy (gtk_widget (my_widget));
      Gtk.Main.Main_Quit;
   end cancel;

end graphical_editor.feasibility_test_option_callbacks;