------------------------------------------------------------------------------ ------------------------------------------------------------------------------ -- 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 Gtkada.Builder; use Gtkada.Builder; with Gtk; use Gtk; with Gtk.Main; use Gtk.Main; with Glib.Error; use Glib.Error; with Gtk.Widget; use Gtk.Widget; with Ada.Text_IO; use Ada.Text_IO; with Processors; use Processors; with Processor_Set; use Processor_Set; with Glib; use Glib; with Glib.Object; use Glib.Object; with graphical_editor.user_message; use graphical_editor.user_message; with Gtk.Combo_Box; use Gtk.Combo_Box; with Translate; use Translate; with Framework_Config; use Framework_Config; with graphical_editor.priorities_rm_callbacks; use graphical_editor.priorities_rm_callbacks; with graphical_editor.priorities_dm_callbacks; use graphical_editor.priorities_dm_callbacks; with graphical_editor.priorities_audsley_callbacks; use graphical_editor.priorities_audsley_callbacks; with graphical_editor.priorities_audsley_crpd_callbacks; use graphical_editor.priorities_audsley_crpd_callbacks; with Tasks; use Tasks; with Task_Set; use Task_Set; with Task_Set; use Task_Set.Generic_Task_Set; package body graphical_editor.priorities is procedure Init_Priorities_Widget (Builder : in out Gtkada_Builder) is Error : Glib.Error.GError; A_Processor : Generic_Processor_Ptr; My_Processor_Iterator : Processors_Iterator; my_combo_cpu: GObject; begin Gtk.Main.Init; Gtk_New (Builder); Error := Add_From_File (Builder, to_string(Glade_path) & "set_priorities.glade"); if Error /= null then Ada.Text_IO.Put_Line ("Error : " & Get_Message (Error)); Error_Free (Error); return; end if; if (get_number_of_elements (Sys.Tasks) = 0) then Show_Message_Box (Lb_Define_Tasks_Before (Current_Language)); end if; my_combo_cpu := Get_Object(Builder, "combobox1"); reset_iterator (sys.Processors, My_Processor_Iterator); if not is_empty (sys.Processors) then loop current_element (sys.Processors, A_Processor, My_Processor_Iterator); Append_Text (Gtk_Combo_Box(my_combo_cpu), To_String(A_Processor.name)); exit when is_last_element (sys.Processors, My_Processor_Iterator); next_element (sys.Processors, My_Processor_Iterator); end loop; else Show_Message_Box (Lb_Define_processors_Before (Current_Language)); end if; Register_Handler (Builder => Builder, Handler_Name => "on_button2_clicked", Handler => graphical_editor.priorities.Close_Priorities_Widget'Access); end Init_Priorities_Widget; procedure Show_Priorities_Widget (Builder : in out Gtkada_Builder) is begin Do_Connect (Builder); Gtk.Widget.Show_All (Get_Widget (Builder, "window1")); Gtk.Main.Main; Unref (Builder); end Show_Priorities_Widget; procedure Close_Priorities_Widget (Object : access Gtkada_Builder_Record'Class) is my_widget : GObject; begin my_widget:=Get_Object(Object, "window1"); Unref(my_widget); Hide(Gtk_Widget(my_widget)); end Close_Priorities_Widget; ----------------------------- -- ----------------------------- procedure Show_Priorities_Rm_Widget is Builder : Gtkada_Builder; begin Init_Priorities_Widget(Builder); Register_Handler (Builder => Builder, Handler_Name => "on_button1_clicked", Handler => graphical_editor.priorities_rm_callbacks.set_priorities_rm'Access); Show_Priorities_Widget(Builder); end Show_Priorities_Rm_Widget; procedure Show_Priorities_Dm_Widget is Builder : Gtkada_Builder; begin Init_Priorities_Widget(Builder); Register_Handler (Builder => Builder, Handler_Name => "on_button1_clicked", Handler => graphical_editor.priorities_dm_callbacks.set_priorities_dm'Access); Show_Priorities_Widget(Builder); end Show_Priorities_Dm_Widget; procedure Show_Priorities_Audsley_OPA_Widget is Builder : Gtkada_Builder; begin Init_Priorities_Widget(Builder); Register_Handler (Builder => Builder, Handler_Name => "on_button1_clicked", Handler => graphical_editor.priorities_audsley_callbacks.set_priorities_audsley_opa'Access); Show_Priorities_Widget(Builder); end Show_Priorities_Audsley_OPA_Widget; procedure Show_Priorities_OPA_CRPD_PT_Widget is Builder : Gtkada_Builder; begin Init_Priorities_Widget(Builder); Register_Handler (Builder => Builder, Handler_Name => "on_button1_clicked", Handler => graphical_editor.priorities_audsley_crpd_callbacks.set_priorities_opa_crpd_pt'Access); Show_Priorities_Widget(Builder); end Show_Priorities_OPA_CRPD_PT_Widget; procedure Show_Priorities_OPA_CRPD_PT_Simplified_Widget is Builder : Gtkada_Builder; begin Init_Priorities_Widget(Builder); Register_Handler (Builder => Builder, Handler_Name => "on_button1_clicked", Handler => graphical_editor.priorities_audsley_crpd_callbacks.set_priorities_opa_crpd_pt_simplified'Access); Show_Priorities_Widget(Builder); end Show_Priorities_OPA_CRPD_PT_Simplified_Widget; procedure Show_Priorities_OPA_CRPD_Tree_Widget is Builder : Gtkada_Builder; begin Init_Priorities_Widget(Builder); Register_Handler (Builder => Builder, Handler_Name => "on_button1_clicked", Handler => graphical_editor.priorities_audsley_crpd_callbacks.set_priorities_opa_crpd_tree'Access); Show_Priorities_Widget(Builder); end Show_Priorities_OPA_CRPD_Tree_Widget; end graphical_editor.priorities;