Les Interfaces Graphiques sous ADA - Cours

GLADE ­ Exemple• Nom_fenetre_package­callback.adbcallback.adbÏϧ­­­­­­­­­­­­­­­­­­­­­­­­­­­­Ïϧ­­ On_Lancer_Simu_Clicked ­­Ïϧ­­­­­­­­­­­­­­­­­­­­­­­­­­­­ÏϧÏϧÏÞßàprocedure On_Lancer_Simu_ClickedÏϧÏϧÏ(Object : access Gtk_Button_Record'Class)ÏϧÏϧÏisÏϧÏϧ ­­modif marionÏϧÏϧÏíÏSimulation : Simulation_Access;ÏϧÏϧ ­­modif marionÏϧÏϧbeginÏϧÏϧ­­modif marionÏϧÏϨ¹¹ÏGtk_New (Simulation);ÏϧÏϨ¹¹ÏShow_All (Simulation);ÏϧÏϨ¹¹ÏText_IO.Put_Line(" Test !");ÏϧÏϧ ­­null;ÏϧÏϧ­­modif marionÏϧÏÏ©end On_Lancer_Simu_Clicked;