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;