← Back to branch summary

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

« back to all changes in this revision

Viewing changes to src/gdk-window.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/gdk-window.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               --
467
467
      Win_Y := Y_Out;
468
468
   end Window_At_Pointer;
469
469
 
 
470
   ---------------------
 
471
   -- Invalidate_Rect --
 
472
   ---------------------
 
473
 
 
474
   procedure Invalidate_Rect
 
475
     (Window              : Gdk_Window;
 
476
      Rectangle           : Gdk.Rectangle.Gdk_Rectangle;
 
477
      Invalidate_Children : Boolean)
 
478
   is
 
479
      procedure Internal
 
480
        (Window              : Gdk_Window;
 
481
         Rectangle           : Gdk.Rectangle.Gdk_Rectangle;
 
482
         Invalidate_Children : Gboolean);
 
483
      pragma Import (C, Internal, "gdk_window_invalidate_rect");
 
484
   begin
 
485
      Internal (Window, Rectangle, Boolean'Pos (Invalidate_Children));
 
486
   end Invalidate_Rect;
 
487
 
470
488
end Gdk.Window;