Description
A 
Gtk_Check_Button places a discrete Gtk_Toggle_Button next to a widget,
(usually a Gtk_Label).
  
  
  
   
   
   
  
   Subprograms
   
     - 
procedure Gtk_New
  (Check_Button : out Gtk_Check_Button;
   Label        : UTF8_String := ""); 
- 
procedure Gtk_New_With_Mnemonic
  (Check_Button : out Gtk_Check_Button;
   Label        : UTF8_String); 
- 
procedure Initialize
  (Check_Button : access Gtk_Check_Button_Record'Class;
   Label        : UTF8_String := ""); 
- 
procedure Initialize_With_Mnemonic
  (Check_Button : access Gtk_Check_Button_Record'Class;
   Label        : UTF8_String); 
- 
  
     
  
   
   Testgtk source code
This code is part of testgtk, a demo application packaged with GtkAda. Testgtk demonstrates the various widgets of GtkAda
-----------------------------------------------------------------------
--          GtkAda - Ada95 binding for the Gimp Toolkit              --
--                                                                   --
--                     Copyright (C) 1998-1999                       --
--        Emmanuel Briot, Joel Brobecker and Arnaud Charlet          --
--                                                                   --
-- 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.                                       --
--                                                                   --
-- As a special exception, if other files instantiate generics from  --
-- this unit, or you link this unit with other files to produce an   --
-- executable, this  unit  does not  by itself cause  the resulting  --
-- executable to be covered by the GNU General Public License. This  --
-- exception does not however invalidate any other reasons why the   --
-- executable file  might be covered by the  GNU Public License.     --
-----------------------------------------------------------------------
with Glib;              
use Glib;
with Gtk;               
use Gtk;
with Gtk.Box;           
use Gtk.Box;
with Gtk.Check_Button;  
use Gtk.Check_Button;
package body Create_Check_Buttons 
is
   ----------
   -- Help --
   ----------
   function Help 
return String 
is
   begin
      return "A @bGtk_Check_Button@B has two possible states, either activated"
        & " 
or desactivated. A callback can be set each time the state 
is"
        & " modified.";
   
end Help;
   ---------
   -- Run --
   ---------
   procedure Run (Frame : 
access Gtk.Frame.Gtk_Frame_Record'Class) 
is
      Box1, Box2 : Box.Gtk_Box;
      A_Check_Button : Check_Button.Gtk_Check_Button;
   
begin
      Set_Label (Frame, "Check Buttons");
      Box.Gtk_New_Vbox (Box1, Homogeneous => False, Spacing => 0);
      Add (Container => Frame, Widget => Box1);
      Box.Gtk_New_Vbox (Box2, Homogeneous => False, Spacing => 10);
      Set_Border_Width (Container => Box2, Border_Width => 10);
      Box.Pack_Start (In_Box => Box1, Child => Box2,
                      Expand => False,
                      Fill   => False);
      Check_Button.Gtk_New (A_Check_Button, "button1");
      Box.Pack_Start (In_Box => Box2, Child => A_Check_Button);
      Check_Button.Gtk_New (A_Check_Button, "button2");
      Box.Pack_Start (In_Box => Box2, Child => A_Check_Button);
      Check_Button.Gtk_New (A_Check_Button, "button3");
      Box.Pack_Start (In_Box => Box2, Child => A_Check_Button);
      Show_All (Box1);
   
end Run;
end Create_Check_Buttons;