← Back to branch summary

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

« back to all changes in this revision

Viewing changes to src/gtk-object.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-object.adb
25
25
 
26
26
package body Gtk.Object is
27
27
 
 
28
   -------------
 
29
   -- Convert --
 
30
   -------------
 
31
 
 
32
   function Convert (W : Gtk_Object) return System.Address is
 
33
   begin
 
34
      if W = null then
 
35
         return System.Null_Address;
 
36
      else
 
37
         return Get_Object (W);
 
38
      end if;
 
39
   end Convert;
 
40
 
 
41
   -------------
 
42
   -- Convert --
 
43
   -------------
 
44
 
 
45
   function Convert (W : System.Address) return Gtk_Object is
 
46
      Stub : Gtk_Object_Record;
 
47
   begin
 
48
      return Gtk_Object (Get_User_Data (W, Stub));
 
49
   end Convert;
 
50
 
28
51
   ---------------------------
29
52
   -- In_Destruction_Is_Set --
30
53
   ---------------------------