with Gtk.Box;         use Gtk.Box;
with Gtk.Button;      use Gtk.Button;
with Gtk.Label;       use Gtk.Label;
--with Gtk.Widget;      use Gtk.Widget;
with Gtk.Main;
with Gtk.Window;      use Gtk.Window;
with Gtk.GEntry;        use Gtk.GEntry;
with Handlery;

procedure Main is

   Win   : Gtk_Window;
   Label : Gtk_Label;
   VBox   : Gtk_Vbox;
   Button1, Button2, Button3, Btn_Quit : Gtk_Button;
   HBox1, HBox2 : Gtk_Hbox;
   Edit1, Edit2, Edit3 : Gtk_GEntry;

begin

   Gtk.Main.Init;

   Gtk_New (Win);
   Win.Set_Default_Size (400, 400);
   handlery.Handlers.Connect (  Win, "destroy", handlery.Handlers.To_Marshaller (handlery.Destroy'Access));

   Gtk_New_Vbox (VBox);
   Gtk_New_Hbox (HBox1);
   Gtk_New_Hbox (HBox2);

   Gtk_New (Label, "Hello world.");
   VBox.Add(Label);

   Gtk_New(Button1,"Button1");
   HBox1.Add(Button1);

   Gtk_New(Button2,"Button2");
   HBox1.Add(Button2);

   Gtk_New(Button3);
   Button3.Set_Label("Button3");
   HBox1.Add(Button3);

   Gtk_New(Edit1);
   Edit1.Set_Editable(False);
   HBox2.Add(Edit1);

   Gtk_New(Edit2);
   HBox2.Add(Edit2);

   Gtk_New(Edit3);
   HBox2.Add(Edit3);

   Gtk_New(Btn_Quit, "Quit Application");
   handlery.Handlers.Connect (Btn_Quit, "clicked", handlery.Handlers.To_Marshaller (handlery.Destroy'Access));

   VBox.Add(HBox1);
   VBox.Add(HBox2);
   VBox.Add(Btn_Quit);

   Win.Add (VBox);

   Win.Show_All;

   Gtk.Main.Main;

end Main;