The unified diff between revisions [4729f3fc..] and [5d596186..] is displayed below. It can also be downloaded as a raw diff.

#
#
# add_file "src/cairo.adb"
#  content [5b7ae4b3f236c832e4aa44c02bde974f4d9098a3]
#
============================================================
--- src/cairo.adb	5b7ae4b3f236c832e4aa44c02bde974f4d9098a3
+++ src/cairo.adb	5b7ae4b3f236c832e4aa44c02bde974f4d9098a3
@@ -0,0 +1,50 @@
+-----------------------------------------------------------------------
+--               GtkAda - Ada95 binding for Gtk+/Gnome               --
+--                                                                   --
+--                    Copyright (C) 2010, AdaCore                    --
+--                                                                   --
+-- This library is free software; you can redistribute it and/or     --
+-- modify it under the terms of the GNU General Public               --
+-- License as published by the Free Software Foundation; either      --
+-- version 2 of the License, or (at your option) any later version.  --
+--                                                                   --
+-- This library is distributed in the hope that it will be useful,   --
+-- but WITHOUT ANY WARRANTY; without even the implied warranty of    --
+-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU --
+-- General Public License for more details.                          --
+--                                                                   --
+-- You should have received a copy of the GNU General Public         --
+-- License along with this library; if not, write to the             --
+-- Free Software Foundation, Inc., 59 Temple Place - Suite 330,      --
+-- Boston, MA 02111-1307, USA.                                       --
+--                                                                   --
+-- As a special exception, if other files instantiate generics from  --
+-- this unit, or you link this unit with other files to produce an   --
+-- executable, this  unit  does not  by itself cause  the resulting  --
+-- executable to be covered by the GNU General Public License. This  --
+-- exception does not however invalidate any other reasons why the   --
+-- executable file  might be covered by the  GNU Public License.     --
+-----------------------------------------------------------------------
+
+package body Cairo is
+
+   --------------
+   -- Set_Dash --
+   --------------
+
+   procedure Set_Dash
+     (Cr         : Cairo_Context;
+      Dashes     : Dash_Array;
+      Offset     : Gdouble)
+   is
+      procedure C_Set_Dash
+        (Cr         : Cairo_Context;
+         Dashes     : System.Address;
+         Num_Dashes : Gint;
+         Offset     : Gdouble);
+      pragma Import (C, C_Set_Dash, "cairo_set_dash");
+   begin
+      C_Set_Dash (Cr, Dashes (Dashes'First)'Address, Dashes'Length, Offset);
+   end Set_Dash;
+
+end Cairo;