← Back to branch summary

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

« back to all changes in this revision

Viewing changes to src/gtk-tearoff_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-tearoff_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_Tearoff_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
 
60
62
      Set_Object (Menu_Item, Internal);
61
63
   end Initialize;
62
64
 
63
 
   ---------------------
64
 
   -- Type_Conversion --
65
 
   ---------------------
66
 
 
67
 
   function Type_Conversion (Type_Name : String) return GObject is
68
 
   begin
69
 
      if Type_Name = "GtkTearoffMenuItem" then
70
 
         return new Gtk_Tearoff_Menu_Item_Record;
71
 
      else
72
 
         return null;
73
 
      end if;
74
 
   end Type_Conversion;
75
 
 
76
 
begin
77
 
   Glib.Type_Conversion_Hooks.Add_Hook (Type_Conversion'Access);
78
65
end Gtk.Tearoff_Menu_Item;