Subprograms
   
  
  Creating buttons
  
     - 
procedure Gtk_New
  (Button      :  out Gtk_Tool_Button;
   Icon_Widget :  Gtk.Widget.Gtk_Widget :=  null;
   Label       : String := ""); 
 procedure Initialize
  (Button      :  access Gtk_Tool_Button_Record'Class;
   Icon_Widget :  Gtk.Widget.Gtk_Widget :=  null;
   Label       : String := ""); 
 
- 
procedure Gtk_New_From_Stock
  (Button   : out Gtk_Tool_Button;
   Stock_Id : String); procedure Initialize_From_Stock
  (Button   : access Gtk_Tool_Button_Record'Class;
   Stock_Id : String); 
- 
function Get_Type return GType; 
- 
procedure Set_Icon_Name
  (Button    : access Gtk_Tool_Button_Record;
   Icon_Name : String); function Get_Icon_Name
  (Button : access Gtk_Tool_Button_Record)  return String; 
- 
procedure Set_Icon_Widget
  (Button      :  access Gtk_Tool_Button_Record;
   Icon_Widget :  Gtk.Widget.Gtk_Widget :=  null); 
 
- 
procedure Set_Label
  (Button : access Gtk_Tool_Button_Record;
   Label  : String); function Get_Label
  (Button : access Gtk_Tool_Button_Record) return String; 
- 
procedure Set_Label_Widget
  (Button       :  access Gtk_Tool_Button_Record;
   Label_Widget :  Gtk.Widget.Gtk_Widget :=  null); 
 
- 
procedure Set_Stock_Id
  (Button   : access Gtk_Tool_Button_Record;
   Stock_Id : String); function Get_Stock_Id
  (Button : access Gtk_Tool_Button_Record) return String; 
- 
procedure Set_Use_Underline
  (Button        : access Gtk_Tool_Button_Record;
   Use_Underline : Boolean := True); function Get_Use_Underline
  (Button : access Gtk_Tool_Button_Record)
   return Boolean;