← Back to branch summary

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

« back to all changes in this revision

Viewing changes to src/gtk-image_menu_item.adb

  • Committer: Bazaar Package Importer
  • Author(s): Ludovic Brenta
  • Date: 2008-07-31 18:10:47 UTC
  • mfrom: (1.1.3 upstream)
  • mto: This revision was merged to the branch mainline in revision 7.
  • Revision ID: james.westby@ubuntu.com-20080731181047-6m1y25zjad0p2yjr
Tags: 2.12.0-2

Correct the project files to add a Library_ALI_Dir and correct the
Library_Name.

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/gtk-image_menu_item.adb
1
1
-----------------------------------------------------------------------
2
2
--              GtkAda - Ada95 binding for Gtk+/Gnome                --
3
3
--                                                                   --
 
4
--                Copyright (C) 2001-2008, AdaCore                   --
4
5
--                                                                   --
5
6
-- This library is free software; you can redistribute it and/or     --
6
7
-- modify it under the terms of the GNU General Public               --
30
30
   -- Local Subprograms --
31
31
   -----------------------
32
32
 
33
 
   function Type_Conversion (Type_Name : String) return GObject;
34
 
   --  This function is used to implement a minimal automated type conversion
 
33
   package Type_Conversion is new Glib.Type_Conversion_Hooks.Hook_Registrator
 
34
     (Get_Type'Access, Gtk_Image_Menu_Item_Record);
 
35
   pragma Warnings (Off, Type_Conversion);
 
36
   --  This package is used to implement a minimal automated type conversion
35
37
   --  without having to drag the whole Gtk.Type_Conversion package for the
36
38
   --  most common widgets.
37
39
 
182
184
      Internal (Get_Object (Menu_Item), Get_Object (Image));
183
185
   end Set_Image;
184
186
 
185
 
   ---------------------
186
 
   -- Type_Conversion --
187
 
   ---------------------
188
 
 
189
 
   function Type_Conversion (Type_Name : String) return GObject is
190
 
   begin
191
 
      if Type_Name = "GtkImageMenuItem" then
192
 
         return new Gtk_Image_Menu_Item_Record;
193
 
      else
194
 
         return null;
195
 
      end if;
196
 
   end Type_Conversion;
197
 
 
198
 
begin
199
 
   Glib.Type_Conversion_Hooks.Add_Hook (Type_Conversion'Access);
200
187
end Gtk.Image_Menu_Item;