/usr/share/ada/adainclude/gtkada/pango-tabs.ads is in libgtkada16.1.0-dev 17.0.2017-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 | ------------------------------------------------------------------------------
-- --
-- Copyright (C) 1998-2000 E. Briot, J. Brobecker and A. Charlet --
-- Copyright (C) 2000-2017, AdaCore --
-- --
-- This library is free software; you can redistribute it and/or modify it --
-- under terms of the GNU General Public License as published by the Free --
-- Software Foundation; either version 3, 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 MERCHAN- --
-- TABILITY or FITNESS FOR A PARTICULAR PURPOSE. --
-- --
-- --
-- --
-- --
-- --
-- You should have received a copy of the GNU General Public License and --
-- a copy of the GCC Runtime Library Exception along with this program; --
-- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see --
-- <http://www.gnu.org/licenses/>. --
-- --
------------------------------------------------------------------------------
-- <description>
-- A Pango.Tabs.Pango_Tab_Array struct contains an array of tab stops. Each
-- tab stop has an alignment and a position.
--
-- </description>
pragma Ada_2005;
pragma Warnings (Off, "*is already use-visible*");
with Glib; use Glib;
with Glib.Generic_Properties; use Glib.Generic_Properties;
package Pango.Tabs is
type Pango_Tab_Array is new Glib.C_Boxed with null record;
Null_Pango_Tab_Array : constant Pango_Tab_Array;
function From_Object (Object : System.Address) return Pango_Tab_Array;
function From_Object_Free (B : access Pango_Tab_Array'Class) return Pango_Tab_Array;
pragma Inline (From_Object_Free, From_Object);
type Pango_Tab_Align is (
Pango_Tab_Left);
pragma Convention (C, Pango_Tab_Align);
-- A Pango.Tabs.Pango_Tab_Align specifies where a tab stop appears
-- relative to the text.
----------------------------
-- Enumeration Properties --
----------------------------
package Pango_Tab_Align_Properties is
new Generic_Internal_Discrete_Property (Pango_Tab_Align);
type Property_Pango_Tab_Align is new Pango_Tab_Align_Properties.Property;
------------------
-- Constructors --
------------------
procedure Gdk_New
(Self : out Pango_Tab_Array;
Initial_Size : Gint;
Positions_In_Pixels : Boolean);
-- Creates an array of Initial_Size tab stops. Tab stops are specified in
-- pixel units if Positions_In_Pixels is True, otherwise in Pango units.
-- All stops are initially at position 0.
-- "initial_size": Initial number of tab stops to allocate, can be 0
-- "positions_in_pixels": whether positions are in pixel units
function Pango_Tab_Array_New
(Initial_Size : Gint;
Positions_In_Pixels : Boolean) return Pango_Tab_Array;
-- Creates an array of Initial_Size tab stops. Tab stops are specified in
-- pixel units if Positions_In_Pixels is True, otherwise in Pango units.
-- All stops are initially at position 0.
-- "initial_size": Initial number of tab stops to allocate, can be 0
-- "positions_in_pixels": whether positions are in pixel units
function Get_Type return Glib.GType;
pragma Import (C, Get_Type, "pango_tab_array_get_type");
-------------
-- Methods --
-------------
function Copy (Self : Pango_Tab_Array) return Pango_Tab_Array;
-- Copies a Pango.Tabs.Pango_Tab_Array
procedure Free (Self : Pango_Tab_Array);
-- Frees a tab array and associated resources.
function Get_Positions_In_Pixels (Self : Pango_Tab_Array) return Boolean;
-- Returns True if the tab positions are in pixels, False if they are in
-- Pango units.
function Get_Size (Self : Pango_Tab_Array) return Gint;
-- Gets the number of tab stops in Tab_Array.
procedure Get_Tab
(Self : Pango_Tab_Array;
Tab_Index : Gint;
Alignment : out Pango_Tab_Align;
Location : out Gint);
-- Gets the alignment and position of a tab stop.
-- "tab_index": tab stop index
-- "alignment": location to store alignment, or null
-- "location": location to store tab position, or null
procedure Set_Tab
(Self : Pango_Tab_Array;
Tab_Index : Gint;
Alignment : Pango_Tab_Align;
Location : Gint);
-- Sets the alignment and location of a tab stop. Alignment must always be
-- PANGO_TAB_LEFT in the current implementation.
-- "tab_index": the index of a tab stop
-- "alignment": tab alignment
-- "location": tab location in Pango units
procedure Resize (Self : Pango_Tab_Array; New_Size : Gint);
-- Resizes a tab array. You must subsequently initialize any tabs that
-- were added as a result of growing the array.
-- "new_size": new size of the array
private
Null_Pango_Tab_Array : constant Pango_Tab_Array := (Glib.C_Boxed with null record);
end Pango.Tabs;
|