← Back to branch summary

~ubuntu-branches/ubuntu/intrepid/libgtkada2/intrepid

« back to all changes in this revision

Viewing changes to src/gtk-check_menu_item.adb

  • Committer: Bazaar Package Importer
  • Author(s): Luca Falavigna
  • Date: 2008-08-11 09:46:51 UTC
  • mfrom: (6.1.1 squeeze)
  • Revision ID: james.westby@ubuntu.com-20080811094651-9mjd6acwa98ffw5c
Tags: 2.12.0-2ubuntu1
Add lpia to supported architectures.

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/gtk-check_menu_item.adb
2
2
--               GtkAda - Ada95 binding for Gtk+/Gnome               --
3
3
--                                                                   --
4
4
--   Copyright (C) 1998-2000 E. Briot, J. Brobecker and A. Charlet   --
 
5
--                 Copyright (C) 2000-2008, AdaCore                  --
5
6
--                                                                   --
6
7
-- This library is free software; you can redistribute it and/or     --
7
8
-- modify it under the terms of the GNU General Public               --
31
31
   -- Local Subprograms --
32
32
   -----------------------
33
33
 
34
 
   function Type_Conversion (Type_Name : String) return GObject;
35
 
   --  This function is used to implement a minimal automated type conversion
 
34
   package Type_Conversion is new Glib.Type_Conversion_Hooks.Hook_Registrator
 
35
     (Get_Type'Access, Gtk_Check_Menu_Item_Record);
 
36
   pragma Warnings (Off, Type_Conversion);
 
37
   --  This package is used to implement a minimal automated type conversion
36
38
   --  without having to drag the whole Gtk.Type_Conversion package for the
37
39
   --  most common widgets.
38
40
 
191
193
      Internal (Get_Object (Check_Menu_Item), Boolean'Pos (Draw_As_Radio));
192
194
   end Set_Draw_As_Radio;
193
195
 
194
 
   ---------------------
195
 
   -- Type_Conversion --
196
 
   ---------------------
197
 
 
198
 
   function Type_Conversion (Type_Name : String) return GObject is
199
 
   begin
200
 
      if Type_Name = "GtkCheckMenuItem" then
201
 
         return new Gtk_Check_Menu_Item_Record;
202
 
      else
203
 
         return null;
204
 
      end if;
205
 
   end Type_Conversion;
206
 
 
207
 
begin
208
 
   Glib.Type_Conversion_Hooks.Add_Hook (Type_Conversion'Access);
209
196
end Gtk.Check_Menu_Item;