← Back to branch summary

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

« back to all changes in this revision

Viewing changes to src/gtk-style.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-style.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               --
26
26
with Gdk.Rectangle;    use Gdk.Rectangle;
27
27
with Pango.Font;       use Pango.Font;
28
28
 
 
29
with Glib.Type_Conversion_Hooks;
 
30
 
29
31
package body Gtk.Style is
30
32
 
 
33
   package Type_Conversion is new Glib.Type_Conversion_Hooks.Hook_Registrator
 
34
     (Get_Type'Access, Gtk_Style_Record);
 
35
   pragma Warnings (Off, Type_Conversion);
 
36
 
31
37
   type Gdk_Color_Access is access Gdk_Color;
32
38
   function Convert is new Ada.Unchecked_Conversion
33
39
     (System.Address, Gdk_Color_Access);
185
191
         Color : System.Address);
186
192
      pragma Import (C, Internal, "ada_style_set_fg");
187
193
 
188
 
      use type Gdk.Color.Gdk_Color;
189
 
 
190
194
      Col     : aliased Gdk.Color.Gdk_Color := Color;
191
195
      Color_A : System.Address := Col'Address;
192
196
 
229
233
         Color : System.Address);
230
234
      pragma Import (C, Internal, "ada_style_set_bg");
231
235
 
232
 
      use type Gdk.Color.Gdk_Color;
233
 
 
234
236
      Col     : aliased Gdk.Color.Gdk_Color := Color;
235
237
      Color_A : System.Address := Col'Address;
236
238
 
273
275
         Color : System.Address);
274
276
      pragma Import (C, Internal, "ada_style_set_light");
275
277
 
276
 
      use type Gdk.Color.Gdk_Color;
277
 
 
278
278
      Col     : aliased Gdk.Color.Gdk_Color := Color;
279
279
      Color_A : System.Address := Col'Address;
280
280
 
317
317
         Color : System.Address);
318
318
      pragma Import (C, Internal, "ada_style_set_dark");
319
319
 
320
 
      use type Gdk.Color.Gdk_Color;
321
 
 
322
320
      Col     : aliased Gdk.Color.Gdk_Color := Color;
323
321
      Color_A : System.Address := Col'Address;
324
322
 
360
358
         State : Enums.Gtk_State_Type;
361
359
         Color : System.Address);
362
360
      pragma Import (C, Internal, "ada_style_set_mid");
363
 
      use type Gdk.Color.Gdk_Color;
364
361
 
365
362
      Col     : aliased Gdk.Color.Gdk_Color := Color;
366
363
      Color_A : System.Address := Col'Address;
404
401
         Color : System.Address);
405
402
      pragma Import (C, Internal, "ada_style_set_text");
406
403
 
407
 
      use type Gdk.Color.Gdk_Color;
408
 
 
409
404
      Col     : aliased Gdk.Color.Gdk_Color := Color;
410
405
      Color_A : System.Address := Col'Address;
411
406
 
448
443
         Color : System.Address);
449
444
      pragma Import (C, Internal, "ada_style_set_base");
450
445
 
451
 
      use type Gdk.Color.Gdk_Color;
452
 
 
453
446
      Col     : aliased Gdk.Color.Gdk_Color := Color;
454
447
      Color_A : System.Address := Col'Address;
455
448
 
480
473
      procedure Internal (Style : System.Address; Color : System.Address);
481
474
      pragma Import (C, Internal, "ada_style_set_black");
482
475
 
483
 
      use type Gdk.Color.Gdk_Color;
484
 
 
485
476
      Col     : aliased Gdk.Color.Gdk_Color := Color;
486
477
      Color_A : System.Address := Col'Address;
487
478
 
512
503
      procedure Internal (Style : System.Address; Color : System.Address);
513
504
      pragma Import (C, Internal, "ada_style_set_white");
514
505
 
515
 
      use type Gdk.Color.Gdk_Color;
516
 
 
517
506
      Col     : aliased Gdk.Color.Gdk_Color := Color;
518
507
      Color_A : System.Address := Col'Address;
519
508