with Glib;      use Glib;
with Glib.Object; use Glib.Object;

with Gtk;            use Gtk;
with Gtk.Widget;     use Gtk.Widget;

with Ada.Text_IO; use Ada.Text_IO;

package body graphical_editor.aadl_options_callbacks is


procedure aadl_option (Object : access Gtkada_Builder_Record'Class) is

		pragma Unreferenced (Object);

begin

	put_line("to be completed");
	Unref(Get_Object(Object, "window1"));
	Hide(Gtk_Widget(Get_Object(Object, "window1")));

end aadl_option;

procedure cancel (Object : access Gtkada_Builder_Record'Class) is

	pragma Unreferenced (Object);
	cancel : GObject;

begin

	cancel :=Get_Object(Object, "window1");
	Unref(cancel);
	Hide(Gtk_Widget(cancel));
end cancel;

end graphical_editor.aadl_options_callbacks;