------------------------------------------------------------------------------ ------------------------------------------------------------------------------ -- 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-2016, Frank Singhoff, Alain Plantec, Jerome Legrand -- -- The Cheddar project was started in 2002 by -- Frank Singhoff, Lab-STICC UMR 6285 laboratory, 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 AUTHORS.txt and SPONSORS.txt -- -- 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: 1249 $ -- $Date: 2014-08-28 07:02:15 +0200 (Fri, 28 Aug 2014) $ -- $Author: singhoff $ ------------------------------------------------------------------------------ ------------------------------------------------------------------------------ with Gtk.Combo_Box; use Gtk.Combo_Box; with Gtk.Text_Buffer; use Gtk.Text_Buffer; with Gtk.List_Store; use Gtk.List_Store; with Gtk.Tree_View; use Gtk.Tree_View; with Gtk.Tree_Model; use Gtk.Tree_Model; with Ada.Strings.Unbounded; use Ada.Strings.Unbounded; with Glib; use Glib; with Glib.Object; use Glib.Object; with Glib.Values; use Glib.Values; with Gtkada.Builder; use Gtkada.Builder; with Scheduler_Interface; use Scheduler_Interface; with standards_io; use standards_io; with Ada.Numerics.Aux; use Ada.Numerics.Aux; use standards_io.double_io; package graphical_editor.generic_package_widget is Number_of_widget: positive:=30; type My_Windows is (Cache_Window, Core_Window, Processor_Window, Network_Window, Address_space_Window, Tasks_Window, Resource_Window, Buffer_Window, Dependencies_Window, Message_Window, Event_Analyser_Window, deployment_Window, precedence_dependency_window, time_triggered_dependency_window, queueing_buffer_dependency_window, black_board_buffer_dependency_window, resource_dependency_window, asynchronous_communication_dependency_window,Task_groups_Window); type parameter_Type is ( buffer_string, buffer_integer, buffer_double, combo, lists, view, my_window); type t_widget (ptype : parameter_Type := buffer_string) is record case ptype is when buffer_string | buffer_integer | buffer_double => buffer_value : Gtk_Text_Buffer; when combo => combo_value : Gtk_Combo_Box; when lists => list_value : Gtk_List_Store; when view => view_value : Gtk_Tree_View; when my_window => window_value : My_Windows; end case; end record; type widget_ptr is access t_widget; type table_widget_id is array (1..number_of_widget) of widget_ptr; function get_value_buffer_string(buffer : Gtk_Text_Buffer) return unbounded_string; function get_value_buffer_integer(buffer : Gtk_Text_Buffer) return integer; function get_value_buffer_double(buffer : Gtk_Text_Buffer) return double; function get_number_elements(treemodel: Gtk_Tree_Model) return integer; function get_int_combo(combo: Gtk_Combo_Box; value: unbounded_string) return integer; end graphical_editor.generic_package_widget;