/usr/share/ada/adainclude/gtkada/gtk-expander.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 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 | ------------------------------------------------------------------------------
-- --
-- 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 Gtk.Expander.Gtk_Expander allows the user to hide or show its child by
-- clicking on an expander triangle similar to the triangles used in a
-- Gtk.Tree_View.Gtk_Tree_View.
--
-- Normally you use an expander as you would use any other descendant of
-- Gtk.Bin.Gtk_Bin; you create the child widget and use Gtk.Container.Add to
-- add it to the expander. When the expander is toggled, it will take care of
-- showing and hiding the child automatically.
--
-- # Special Usage
--
-- There are situations in which you may prefer to show and hide the expanded
-- widget yourself, such as when you want to actually create the widget at
-- expansion time. In this case, create a Gtk.Expander.Gtk_Expander but do not
-- add a child to it. The expander widget has an
-- Gtk.Expander.Gtk_Expander:expanded property which can be used to monitor
-- its expansion state. You should watch this property with a signal
-- connection as follows:
--
-- |[<!-- language="C" --> expander = gtk_expander_new_with_mnemonic ("_More
-- Options"); g_signal_connect (expander, "notify::expanded", G_CALLBACK
-- (expander_callback), NULL);
--
-- ...
--
-- static void expander_callback (GObject *object, GParamSpec *param_spec,
-- gpointer user_data) { GtkExpander *expander;
--
-- expander = GTK_EXPANDER (object);
--
-- if (gtk_expander_get_expanded (expander)) { // Show or create widgets }
-- else { // Hide or destroy widgets } } ]|
--
-- # GtkExpander as GtkBuildable
--
-- The GtkExpander implementation of the GtkBuildable interface supports
-- placing a child in the label position by specifying "label" as the "type"
-- attribute of a <child> element. A normal content child can be specified
-- without specifying a <child> type attribute.
--
-- An example of a UI definition fragment with GtkExpander: |[ <object
-- class="GtkExpander"> <child type="label"> <object class="GtkLabel"
-- id="expander-label"/> </child> <child> <object class="GtkEntry"
-- id="expander-content"/> </child> </object> ]|
--
-- </description>
-- <screenshot>gtk-expanded</screenshot>
-- <group>Layout containers</group>
pragma Ada_2005;
pragma Warnings (Off, "*is already use-visible*");
with Glib; use Glib;
with Glib.Object; use Glib.Object;
with Glib.Properties; use Glib.Properties;
with Glib.Types; use Glib.Types;
with Gtk.Bin; use Gtk.Bin;
with Gtk.Buildable; use Gtk.Buildable;
with Gtk.Widget; use Gtk.Widget;
package Gtk.Expander is
type Gtk_Expander_Record is new Gtk_Bin_Record with null record;
type Gtk_Expander is access all Gtk_Expander_Record'Class;
------------------
-- Constructors --
------------------
procedure Gtk_New (Expander : out Gtk_Expander; Label : UTF8_String);
procedure Initialize
(Expander : not null access Gtk_Expander_Record'Class;
Label : UTF8_String);
-- Creates a new expander using Label as the text of the label.
-- Since: gtk+ 2.4
-- Initialize does nothing if the object was already created with another
-- call to Initialize* or G_New.
-- "label": the text of the label
function Gtk_Expander_New (Label : UTF8_String) return Gtk_Expander;
-- Creates a new expander using Label as the text of the label.
-- Since: gtk+ 2.4
-- "label": the text of the label
procedure Gtk_New_With_Mnemonic
(Expander : out Gtk_Expander;
Label : UTF8_String := "");
procedure Initialize_With_Mnemonic
(Expander : not null access Gtk_Expander_Record'Class;
Label : UTF8_String := "");
-- Creates a new expander using Label as the text of the label. If
-- characters in Label are preceded by an underscore, they are underlined.
-- If you need a literal underscore character in a label, use "__" (two
-- underscores). The first underlined character represents a keyboard
-- accelerator called a mnemonic. Pressing Alt and that key activates the
-- button.
-- Since: gtk+ 2.4
-- Initialize_With_Mnemonic does nothing if the object was already created
-- with another call to Initialize* or G_New.
-- "label": the text of the label with an underscore in front of the
-- mnemonic character
function Gtk_Expander_New_With_Mnemonic
(Label : UTF8_String := "") return Gtk_Expander;
-- Creates a new expander using Label as the text of the label. If
-- characters in Label are preceded by an underscore, they are underlined.
-- If you need a literal underscore character in a label, use "__" (two
-- underscores). The first underlined character represents a keyboard
-- accelerator called a mnemonic. Pressing Alt and that key activates the
-- button.
-- Since: gtk+ 2.4
-- "label": the text of the label with an underscore in front of the
-- mnemonic character
function Get_Type return Glib.GType;
pragma Import (C, Get_Type, "gtk_expander_get_type");
-------------
-- Methods --
-------------
function Get_Expanded
(Expander : not null access Gtk_Expander_Record) return Boolean;
-- Queries a Gtk.Expander.Gtk_Expander and returns its current state.
-- Returns True if the child widget is revealed.
-- See Gtk.Expander.Set_Expanded.
-- Since: gtk+ 2.4
procedure Set_Expanded
(Expander : not null access Gtk_Expander_Record;
Expanded : Boolean);
-- Sets the state of the expander. Set to True, if you want the child
-- widget to be revealed, and False if you want the child widget to be
-- hidden.
-- Since: gtk+ 2.4
-- "expanded": whether the child widget is revealed
function Get_Label
(Expander : not null access Gtk_Expander_Record) return UTF8_String;
-- Fetches the text from a label widget including any embedded underlines
-- indicating mnemonics and Pango markup, as set by Gtk.Expander.Set_Label.
-- If the label text has not been set the return value will be null. This
-- will be the case if you create an empty button with gtk_button_new to
-- use as a container.
-- Note that this function behaved differently in versions prior to 2.14
-- and used to return the label text stripped of embedded underlines
-- indicating mnemonics and Pango markup. This problem can be avoided by
-- fetching the label text directly from the label widget.
-- Since: gtk+ 2.4
procedure Set_Label
(Expander : not null access Gtk_Expander_Record;
Label : UTF8_String := "");
-- Sets the text of the label of the expander to Label.
-- This will also clear any previously set labels.
-- Since: gtk+ 2.4
-- "label": a string
function Get_Label_Fill
(Expander : not null access Gtk_Expander_Record) return Boolean;
-- Returns whether the label widget will fill all available horizontal
-- space allocated to Expander.
-- Since: gtk+ 2.22
procedure Set_Label_Fill
(Expander : not null access Gtk_Expander_Record;
Label_Fill : Boolean);
-- Sets whether the label widget should fill all available horizontal
-- space allocated to Expander.
-- Since: gtk+ 2.22
-- "label_fill": True if the label should should fill all available
-- horizontal space
function Get_Label_Widget
(Expander : not null access Gtk_Expander_Record)
return Gtk.Widget.Gtk_Widget;
-- Retrieves the label widget for the frame. See
-- Gtk.Expander.Set_Label_Widget.
-- Since: gtk+ 2.4
procedure Set_Label_Widget
(Expander : not null access Gtk_Expander_Record;
Label_Widget : access Gtk.Widget.Gtk_Widget_Record'Class);
-- Set the label widget for the expander. This is the widget that will
-- appear embedded alongside the expander arrow.
-- Since: gtk+ 2.4
-- "label_widget": the new label widget
function Get_Resize_Toplevel
(Expander : not null access Gtk_Expander_Record) return Boolean;
-- Returns whether the expander will resize the toplevel widget containing
-- the expander upon resizing and collpasing.
-- Since: gtk+ 3.2
procedure Set_Resize_Toplevel
(Expander : not null access Gtk_Expander_Record;
Resize_Toplevel : Boolean);
-- Sets whether the expander will resize the toplevel widget containing
-- the expander upon resizing and collpasing.
-- Since: gtk+ 3.2
-- "resize_toplevel": whether to resize the toplevel
function Get_Spacing
(Expander : not null access Gtk_Expander_Record) return Gint;
-- Gets the value set by Gtk.Expander.Set_Spacing.
-- Since: gtk+ 2.4
procedure Set_Spacing
(Expander : not null access Gtk_Expander_Record;
Spacing : Gint);
-- Sets the spacing field of Expander, which is the number of pixels to
-- place between expander and the child.
-- Since: gtk+ 2.4
-- "spacing": distance between the expander and child in pixels
function Get_Use_Markup
(Expander : not null access Gtk_Expander_Record) return Boolean;
-- Returns whether the label's text is interpreted as marked up with the
-- [Pango text markup language][PangoMarkupFormat]. See
-- Gtk.Expander.Set_Use_Markup.
-- Since: gtk+ 2.4
procedure Set_Use_Markup
(Expander : not null access Gtk_Expander_Record;
Use_Markup : Boolean);
-- Sets whether the text of the label contains markup in [Pango's text
-- markup language][PangoMarkupFormat]. See Gtk.Label.Set_Markup.
-- Since: gtk+ 2.4
-- "use_markup": True if the label's text should be parsed for markup
function Get_Use_Underline
(Expander : not null access Gtk_Expander_Record) return Boolean;
-- Returns whether an embedded underline in the expander label indicates a
-- mnemonic. See Gtk.Expander.Set_Use_Underline.
-- Since: gtk+ 2.4
procedure Set_Use_Underline
(Expander : not null access Gtk_Expander_Record;
Use_Underline : Boolean);
-- If true, an underline in the text of the expander label indicates the
-- next character should be used for the mnemonic accelerator key.
-- Since: gtk+ 2.4
-- "use_underline": True if underlines in the text indicate mnemonics
----------------
-- Properties --
----------------
-- The following properties are defined for this widget. See
-- Glib.Properties for more information on properties)
Expanded_Property : constant Glib.Properties.Property_Boolean;
Label_Property : constant Glib.Properties.Property_String;
Label_Fill_Property : constant Glib.Properties.Property_Boolean;
Label_Widget_Property : constant Glib.Properties.Property_Object;
-- Type: Gtk.Widget.Gtk_Widget
Resize_Toplevel_Property : constant Glib.Properties.Property_Boolean;
-- When this property is True, the expander will resize the toplevel
-- widget containing the expander upon expanding and collapsing.
Spacing_Property : constant Glib.Properties.Property_Int;
Use_Markup_Property : constant Glib.Properties.Property_Boolean;
Use_Underline_Property : constant Glib.Properties.Property_Boolean;
-------------
-- Signals --
-------------
type Cb_Gtk_Expander_Void is not null access procedure (Self : access Gtk_Expander_Record'Class);
type Cb_GObject_Void is not null access procedure
(Self : access Glib.Object.GObject_Record'Class);
Signal_Activate : constant Glib.Signal_Name := "activate";
procedure On_Activate
(Self : not null access Gtk_Expander_Record;
Call : Cb_Gtk_Expander_Void;
After : Boolean := False);
procedure On_Activate
(Self : not null access Gtk_Expander_Record;
Call : Cb_GObject_Void;
Slot : not null access Glib.Object.GObject_Record'Class;
After : Boolean := False);
----------------
-- Interfaces --
----------------
-- This class implements several interfaces. See Glib.Types
--
-- - "Buildable"
package Implements_Gtk_Buildable is new Glib.Types.Implements
(Gtk.Buildable.Gtk_Buildable, Gtk_Expander_Record, Gtk_Expander);
function "+"
(Widget : access Gtk_Expander_Record'Class)
return Gtk.Buildable.Gtk_Buildable
renames Implements_Gtk_Buildable.To_Interface;
function "-"
(Interf : Gtk.Buildable.Gtk_Buildable)
return Gtk_Expander
renames Implements_Gtk_Buildable.To_Object;
private
Use_Underline_Property : constant Glib.Properties.Property_Boolean :=
Glib.Properties.Build ("use-underline");
Use_Markup_Property : constant Glib.Properties.Property_Boolean :=
Glib.Properties.Build ("use-markup");
Spacing_Property : constant Glib.Properties.Property_Int :=
Glib.Properties.Build ("spacing");
Resize_Toplevel_Property : constant Glib.Properties.Property_Boolean :=
Glib.Properties.Build ("resize-toplevel");
Label_Widget_Property : constant Glib.Properties.Property_Object :=
Glib.Properties.Build ("label-widget");
Label_Fill_Property : constant Glib.Properties.Property_Boolean :=
Glib.Properties.Build ("label-fill");
Label_Property : constant Glib.Properties.Property_String :=
Glib.Properties.Build ("label");
Expanded_Property : constant Glib.Properties.Property_Boolean :=
Glib.Properties.Build ("expanded");
end Gtk.Expander;
|