with Gtk.Menu_Item; use Gtk.Menu_Item;
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 Glib;      use Glib;
with Glib.Object; use Glib.Object;


package body graphical_editor.manual_callbacks is


procedure Close_Manual_Widget(Object : access Gtkada_Builder_Record'Class) is
 
 
    pragma Unreferenced (Object);
   my_widget : GObject;
 
   begin
  my_widget:=Get_Object(Object, "window1");

       Unref(my_widget);

       Hide(Gtk_Widget(my_widget));

    end Close_Manual_Widget;

end graphical_editor.manual_callbacks;