package body handlery is

   procedure Destroy (Widget : access Gtk_Widget_Record'Class) is
   begin
      Gtk.Main.Main_Quit;
   end Destroy;

   procedure Edit_Field(Widget : access Gtk_Widget_Record'Class;  User_Widget : Gtk_GEntry) is
   begin
      User_Widget.Set_Text("ADA zdraví celý svět!!!");
   end Edit_Field;

   procedure Edit_Edit (Widget : access Gtk_Widget_Record'Class; Edit_Data : My_Data_Access) is
   begin
      Edit_Data.Edit.Set_Text (UStr.To_String(Edit_Data.Text));
   end Edit_Edit;

begin

   null;

end handlery;