← Back to branch summary

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

« back to all changes in this revision

Viewing changes to src/gtk-radio_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-radio_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               --
33
33
   -- Local Subprograms --
34
34
   -----------------------
35
35
 
36
 
   function Type_Conversion (Type_Name : String) return GObject;
37
 
   --  This function is used to implement a minimal automated type conversion
 
36
   package Type_Conversion is new Glib.Type_Conversion_Hooks.Hook_Registrator
 
37
     (Get_Type'Access, Gtk_Radio_Menu_Item_Record);
 
38
   pragma Warnings (Off, Type_Conversion);
 
39
   --  This package is used to implement a minimal automated type conversion
38
40
   --  without having to drag the whole Gtk.Type_Conversion package for the
39
41
   --  most common widgets.
40
42
 
253
255
        (Radio_Menu_Item, Internal (Get_Object (Group), Label & ASCII.NUL));
254
256
   end Initialize_With_Mnemonic_From_Widget;
255
257
 
256
 
   ---------------------
257
 
   -- Type_Conversion --
258
 
   ---------------------
259
 
 
260
 
   function Type_Conversion (Type_Name : String) return GObject is
261
 
   begin
262
 
      if Type_Name = "GtkRadioMenuItem" then
263
 
         return new Gtk_Radio_Menu_Item_Record;
264
 
      else
265
 
         return null;
266
 
      end if;
267
 
   end Type_Conversion;
268
 
 
269
 
begin
270
 
   Glib.Type_Conversion_Hooks.Add_Hook (Type_Conversion'Access);
271
258
end Gtk.Radio_Menu_Item;