← Back to branch summary

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

« back to all changes in this revision

Viewing changes to src/gtk-extra-sheet.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-extra-sheet.adb
2
2
--               GtkAda - Ada95 binding for Gtk+/Gnome               --
3
3
--                                                                   --
4
4
--      Copyright (C) 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               --
28
28
with Gdk.Color;            use Gdk.Color;
29
29
with Pango.Font;           use Pango.Font;
30
30
 
 
31
with Glib.Type_Conversion_Hooks;
 
32
 
31
33
package body Gtk.Extra.Sheet is
32
34
 
 
35
   package Type_Conversion is new Glib.Type_Conversion_Hooks.Hook_Registrator
 
36
     (Get_Type'Access, Gtk_Sheet_Record);
 
37
   pragma Warnings (Off, Type_Conversion);
 
38
 
33
39
   -------------
34
40
   -- Gtk_New --
35
41
   -------------
915
921
         Col    : Gint) return Interfaces.C.Strings.chars_ptr;
916
922
      pragma Import (C, Internal, "gtk_sheet_cell_get_text");
917
923
 
918
 
      use type Interfaces.C.Strings.chars_ptr;
919
 
 
920
924
      C : Interfaces.C.Strings.chars_ptr;
921
925
 
922
926
   begin
1282
1286
                          The_Range : in Gtk_Sheet_Range;
1283
1287
                          Color     : in System.Address);
1284
1288
      pragma Import (C, Internal, "gtk_sheet_range_set_background");
1285
 
      use type Gdk.Color.Gdk_Color;
1286
1289
 
1287
1290
      C : aliased Gdk.Color.Gdk_Color := Color;
1288
1291
      Ca : System.Address := C'Address;
1307
1310
                          The_Range : in Gtk_Sheet_Range;
1308
1311
                          Color     : in System.Address);
1309
1312
      pragma Import (C, Internal, "gtk_sheet_range_set_foreground");
1310
 
      use type Gdk.Color.Gdk_Color;
1311
1313
 
1312
1314
      C : aliased Gdk.Color.Gdk_Color := Color;
1313
1315
      Ca : System.Address := C'Address;
1424
1426
                          The_Range : in Gtk_Sheet_Range;
1425
1427
                          Color     : in System.Address);
1426
1428
      pragma Import (C, Internal, "gtk_sheet_range_set_border_color");
1427
 
      use type Gdk.Color.Gdk_Color;
1428
1429
 
1429
1430
      C : aliased Gdk.Color.Gdk_Color := Color;
1430
1431
      Ca : System.Address := C'Address;
1547
1548
   function Get_Widget (Child : Gtk_Sheet_Child)
1548
1549
                       return Gtk.Widget.Gtk_Widget
1549
1550
   is
1550
 
      function Internal (Child : Gtk_Sheet_Child) return System.Address;
 
1551
      function Internal (Child : System.Address) return System.Address;
1551
1552
      pragma Import (C, Internal, "ada_gtk_sheet_get_widget");
1552
1553
      Stub : Gtk.Widget.Gtk_Widget_Record;
1553
1554
   begin
1554
1555
      return Gtk.Widget.Gtk_Widget
1555
 
        (Get_User_Data (Internal (Child), Stub));
 
1556
        (Get_User_Data (Internal (Get_Object (Child)), Stub));
1556
1557
   end Get_Widget;
1557
1558
 
1558
1559
   ---------------
1601
1602
      function Internal (Sheet : System.Address; Column : Gint)
1602
1603
                        return Interfaces.C.Strings.chars_ptr;
1603
1604
      pragma Import (C, Internal, "gtk_sheet_get_column_title");
1604
 
      use type Interfaces.C.Strings.chars_ptr;
1605
1605
      C : Interfaces.C.Strings.chars_ptr;
1606
1606
   begin
1607
1607
      C := Internal (Get_Object (Sheet), Column);
1623
1623
      function Internal (Sheet : System.Address; Row : Gint)
1624
1624
                        return Interfaces.C.Strings.chars_ptr;
1625
1625
      pragma Import (C, Internal, "gtk_sheet_get_row_title");
1626
 
      use type Interfaces.C.Strings.chars_ptr;
1627
1626
      C : Interfaces.C.Strings.chars_ptr;
1628
1627
   begin
1629
1628
      C := Internal (Get_Object (Sheet), Row);