← Back to branch summary

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

« back to all changes in this revision

Viewing changes to src/gtk-gentry.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-gentry.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_Entry_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
 
452
454
      return Internal (Get_Object (Ent), Layout_Index);
453
455
   end Layout_Index_To_Text_Index;
454
456
 
455
 
 
456
 
   ---------------------
457
 
   -- Type_Conversion --
458
 
   ---------------------
459
 
 
460
 
   function Type_Conversion (Type_Name : String) return GObject is
461
 
   begin
462
 
      if Type_Name = "GtkEntry" then
463
 
         return new Gtk_Entry_Record;
464
 
      else
465
 
         return null;
466
 
      end if;
467
 
   end Type_Conversion;
468
 
 
469
 
begin
470
 
   Glib.Type_Conversion_Hooks.Add_Hook (Type_Conversion'Access);
471
457
end Gtk.GEntry;