-----------------------------------------------------------------------
--          GtkAda - Ada95 binding for the Gimp Toolkit              --
--                                                                   --
--   Copyright (C) 1998-2000 E. Briot, J. Brobecker and A. Charlet   --
--                  Copyright (C) 2001 ACT-Europe                    --
--                                                                   --
-- This library is free software; you can redistribute it and/or     --
-- modify it under the terms of the GNU General Public               --
-- License as published by the Free Software Foundation; either      --
-- version 2 of the License, or (at your option) any later version.  --
--                                                                   --
-- This library is distributed in the hope that it will be useful,   --
-- but WITHOUT ANY WARRANTY; without even the implied warranty of    --
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU --
-- General Public License for more details.                          --
--                                                                   --
-- You should have received a copy of the GNU General Public         --
-- License along with this library; if not, write to the             --
-- Free Software Foundation, Inc., 59 Temple Place - Suite 330,      --
-- Boston, MA 02111-1307, USA.                                       --
--                                                                   --
-----------------------------------------------------------------------

with Glib;            use Glib;
with Glib.Object;     use Glib.Object;
with Gtk.Box;         use Gtk.Box;
with Gtk.Handle_Box;  use Gtk.Handle_Box;
with Gtk.Label;       use Gtk.Label;
with Gtk.Separator;   use Gtk.Separator;
with Gtk.Handlers;    use Gtk.Handlers;
with Gtk.Toolbar;     use Gtk.Toolbar;
with Gtk.Widget;      use Gtk.Widget;
with Gtk;             use Gtk;

with Ada.Text_IO;
with Create_Toolbar;

package body Create_Handle_Box is

   package Handle_Cb is new Handlers.User_Callback
     (Gtk_Handle_Box_Record, String);

   ----------
   -- Help --
   ----------

   function Help return String is
   begin
      return "A @bGtk_Handle_Box@B provides a special place where widgets"
        & " can be attached and detached. For instance, in this demo the"
        & " @bGtk_Toolbar@B can be detached from the handle box to create"
        & " a separate window." & ASCII.LF
        & "When the window is closed, the toolbar is reattached to the"
        & " @bGtk_Handle_Box@B.";
   end Help;

   ------------------
   -- Child_Signal --
   ------------------

   procedure Child_Signal (Handle : access Gtk_Handle_Box_Record'Class;
                           Child  : access Gtk_Widget_Record'Class;
                           Data   : in String) is
   begin
      Ada.Text_IO.Put_Line ("In Child Signal");
      if Is_Created  (Child.all) then
         Ada.Text_IO.Put_Line (Type_Name (Get_Type (Handle))
                               & ": child <"
                               & Type_Name (Get_Type (Child))
                               & "> "
                               & Data);
      else
         Ada.Text_IO.Put_Line (Type_Name (Get_Type (Handle))
                               & ": child <null> " & Data);
      end if;

   end Child_Signal;

   ---------
   -- Run --
   ---------

   procedure Run (Frame : access Gtk.Frame.Gtk_Frame_Record'Class) is
      Vbox      : Gtk_Box;
      Hbox      : Gtk_Box;
      Label     : Gtk_Label;
      Separator : Gtk_Separator;
      Handle    : Gtk_Handle_Box;
      Handle2   : Gtk_Handle_Box;
      Toolbar   : Gtk_Toolbar;

   begin
      Set_Label (Frame, "Handle Box");
      Gtk_New_Vbox (Vbox,
                    Homogeneous => False,
                    Spacing     => 0);
      Add (Frame, Vbox);

      Gtk_New (Label, "Above");
      Pack_Start (Vbox, Label, False, False);

      Gtk_New_Hseparator (Separator);
      Pack_Start (Vbox, Separator, False, False);

      Gtk_New_Hbox (Hbox,
                    Homogeneous => False,
                    Spacing     => 10);
      Pack_Start (Vbox, Hbox, False, False);

      Gtk_New_Hseparator (Separator);
      Pack_Start (Vbox, Separator, False, False);

      Gtk_New (Label, "Below");
      Pack_Start (Vbox, Label, False, False);

      Gtk_New (Handle);
      Pack_Start (Hbox,
                  Child   => Handle,
                  Expand  => False,
                  Fill    => False,
                  Padding => 0);
      Handle_Cb.Connect (Handle, "child_attached",
                         Handle_Cb.To_Marshaller (Child_Signal'Access),
                         "attached");
      Handle_Cb.Connect (Handle, "child_detached",
                         Handle_Cb.To_Marshaller (Child_Signal'Access),
                         "detached");

      Create_Toolbar.Make_Toolbar (Toolbar, Get_Window (Frame),
                                   Get_Style (Frame));
      Add (Handle, Toolbar);

      Gtk_New (Handle);
      Pack_Start (Hbox,
                  Child   => Handle,
                  Expand  => False,
                  Fill    => False,
                  Padding => 0);
      Handle_Cb.Connect (Handle, "child_attached",
                         Handle_Cb.To_Marshaller (Child_Signal'Access),
                         "attached");
      Handle_Cb.Connect (Handle, "child_detached",
                         Handle_Cb.To_Marshaller (Child_Signal'Access),
                         "detached");

      Gtk_New (Handle2);
      Add (Handle, Handle2);
      Handle_Cb.Connect (Handle2, "child_attached",
                         Handle_Cb.To_Marshaller (Child_Signal'Access),
                         "attached");
      Handle_Cb.Connect (Handle2, "child_detached",
                         Handle_Cb.To_Marshaller (Child_Signal'Access),
                         "detached");

      Gtk_New (Label, "Fooo!");
      Add (Handle2, Label);

      Show_All (Frame);
   end Run;

end Create_Handle_Box;
