/usr/share/ada/adainclude/gtkada/gtk-actionable.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 | ------------------------------------------------------------------------------
-- --
-- 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>
-- This interface provides a convenient way of associating widgets with
-- actions on a Gtk.Application_Window.Gtk_Application_Window or
-- Gtk.Application.Gtk_Application.
--
-- It primarily consists of two properties:
-- Gtk.Actionable.Gtk_Actionable:action-name and
-- Gtk.Actionable.Gtk_Actionable:action-target. There are also some
-- convenience APIs for setting these properties.
--
-- The action will be looked up in action groups that are found among the
-- widgets ancestors. Most commonly, these will be the actions with the "win"
-- or "app" prefix that are associated with the
-- Gtk.Application_Window.Gtk_Application_Window or "GtkApplication, but other
-- action groups that are added with gtk_widget_insert_action_group will be
-- consulted as well.
--
-- </description>
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 Glib.Variant; use Glib.Variant;
pragma Warnings(Off); -- might be unused
with Interfaces.C.Strings; use Interfaces.C.Strings;
pragma Warnings(On);
package Gtk.Actionable is
type Gtk_Actionable is new Glib.Types.GType_Interface;
Null_Gtk_Actionable : constant Gtk_Actionable;
------------------
-- Constructors --
------------------
function Get_Type return Glib.GType;
pragma Import (C, Get_Type, "gtk_actionable_get_type");
-------------
-- Methods --
-------------
function Get_Action_Name (Self : Gtk_Actionable) return UTF8_String;
-- Gets the action name for Actionable.
-- See Gtk.Actionable.Set_Action_Name for more information.
-- Since: gtk+ 3.4
procedure Set_Action_Name
(Self : Gtk_Actionable;
Action_Name : UTF8_String);
-- Specifies the name of the action with which this widget should be
-- associated. If Action_Name is null then the widget will be unassociated
-- from any previous action.
-- Usually this function is used when the widget is located (or will be
-- located) within the hierarchy of a
-- Gtk.Application_Window.Gtk_Application_Window.
-- Names are of the form "win.save" or "app.quit" for actions on the
-- containing Gtk.Application_Window.Gtk_Application_Window or its
-- associated Gtk.Application.Gtk_Application, respectively. This is the
-- same form used for actions in the Glib.Menu.Gmenu associated with the
-- window.
-- Since: gtk+ 3.4
-- "action_name": an action name, or null
function Get_Action_Target_Value
(Self : Gtk_Actionable) return Glib.Variant.Gvariant;
-- Gets the current target value of Actionabe.
-- See Gtk.Actionable.Set_Action_Target_Value for more information.
-- Since: gtk+ 3.4
procedure Set_Action_Target_Value
(Self : Gtk_Actionable;
Target_Value : Glib.Variant.Gvariant);
-- Sets the target value of an actionable widget.
-- If Target_Value is null then the target value is unset.
-- The target value has two purposes. First, it is used as the parameter
-- to activation of the action associated with the
-- Gtk.Actionable.Gtk_Actionable widget. Second, it is used to determine if
-- the widget should be rendered as "active" - the widget is active if the
-- state is equal to the given target.
-- Consider the example of associating a set of buttons with a
-- Glib.Action.Gaction with string state in a typical "radio button"
-- situation. Each button will be associated with the same action, but with
-- a different target value for that action. Clicking on a particular
-- button will activate the action with the target of that button, which
-- will typically cause the action's state to change to that value. Since
-- the action's state is now equal to the target value of the button, the
-- button will now be rendered as active (and the other buttons, with
-- different targets, rendered inactive).
-- Since: gtk+ 3.4
-- "target_value": a Glib.Variant.Gvariant to set as the target value, or
-- null
procedure Set_Detailed_Action_Name
(Self : Gtk_Actionable;
Detailed_Action_Name : UTF8_String);
-- Sets the action-name and associated string target value of an
-- actionable widget.
-- This allows for the effect of both Gtk.Actionable.Set_Action_Name and
-- Gtk.Actionable.Set_Action_Target_Value in the common case that the
-- target is string-valued.
-- Detailed_Action_Name is a string of the form `"action::target"` where
-- `action` is the action name and `target` is the string to use as the
-- target.
-- Since: gtk+ 3.4
-- "detailed_action_name": the detailed action name
----------------
-- Properties --
----------------
-- The following properties are defined for this widget. See
-- Glib.Properties for more information on properties)
Action_Name_Property : constant Glib.Properties.Property_String;
Action_Target_Property : constant Glib.Properties.Property_Object;
-- Type: Glib.Variant.Gvariant
----------------
-- Interfaces --
----------------
-- This class implements several interfaces. See Glib.Types
--
-- - "Gtk_Actionable"
function "+" (W : Gtk_Actionable) return Gtk_Actionable;
pragma Inline ("+");
---------------------
-- Virtual Methods --
---------------------
type Virtual_Get_Action_Name is access function
(Self : Gtk_Actionable) return Interfaces.C.Strings.chars_ptr;
pragma Convention (C, Virtual_Get_Action_Name);
-- Gets the action name for Actionable.
-- See Gtk.Actionable.Set_Action_Name for more information.
-- Since: gtk+ 3.4
type Virtual_Get_Action_Target_Value is access function (Self : Gtk_Actionable) return System.Address;
pragma Convention (C, Virtual_Get_Action_Target_Value);
-- Gets the current target value of Actionabe.
-- See Gtk.Actionable.Set_Action_Target_Value for more information.
-- Since: gtk+ 3.4
type Virtual_Set_Action_Name is access procedure
(Self : Gtk_Actionable;
Action_Name : Interfaces.C.Strings.chars_ptr);
pragma Convention (C, Virtual_Set_Action_Name);
-- Specifies the name of the action with which this widget should be
-- associated. If Action_Name is null then the widget will be unassociated
-- from any previous action.
-- Usually this function is used when the widget is located (or will be
-- located) within the hierarchy of a
-- Gtk.Application_Window.Gtk_Application_Window.
-- Names are of the form "win.save" or "app.quit" for actions on the
-- containing Gtk.Application_Window.Gtk_Application_Window or its
-- associated Gtk.Application.Gtk_Application, respectively. This is the
-- same form used for actions in the Glib.Menu.Gmenu associated with the
-- window.
-- Since: gtk+ 3.4
-- "action_name": an action name, or null
type Virtual_Set_Action_Target_Value is access procedure (Self : Gtk_Actionable; Target_Value : System.Address);
pragma Convention (C, Virtual_Set_Action_Target_Value);
-- Sets the target value of an actionable widget.
-- If Target_Value is null then the target value is unset.
-- The target value has two purposes. First, it is used as the parameter
-- to activation of the action associated with the
-- Gtk.Actionable.Gtk_Actionable widget. Second, it is used to determine if
-- the widget should be rendered as "active" - the widget is active if the
-- state is equal to the given target.
-- Consider the example of associating a set of buttons with a
-- Glib.Action.Gaction with string state in a typical "radio button"
-- situation. Each button will be associated with the same action, but with
-- a different target value for that action. Clicking on a particular
-- button will activate the action with the target of that button, which
-- will typically cause the action's state to change to that value. Since
-- the action's state is now equal to the target value of the button, the
-- button will now be rendered as active (and the other buttons, with
-- different targets, rendered inactive).
-- Since: gtk+ 3.4
-- "target_value": a Glib.Variant.Gvariant to set as the target value, or
-- null
subtype Actionable_Interface_Descr is Glib.Object.Interface_Description;
procedure Set_Get_Action_Name
(Self : Actionable_Interface_Descr;
Handler : Virtual_Get_Action_Name);
pragma Import (C, Set_Get_Action_Name, "gtkada_Actionable_set_get_action_name");
procedure Set_Get_Action_Target_Value
(Self : Actionable_Interface_Descr;
Handler : Virtual_Get_Action_Target_Value);
pragma Import (C, Set_Get_Action_Target_Value, "gtkada_Actionable_set_get_action_target_value");
procedure Set_Set_Action_Name
(Self : Actionable_Interface_Descr;
Handler : Virtual_Set_Action_Name);
pragma Import (C, Set_Set_Action_Name, "gtkada_Actionable_set_set_action_name");
procedure Set_Set_Action_Target_Value
(Self : Actionable_Interface_Descr;
Handler : Virtual_Set_Action_Target_Value);
pragma Import (C, Set_Set_Action_Target_Value, "gtkada_Actionable_set_set_action_target_value");
-- See Glib.Object.Add_Interface
private
Action_Target_Property : constant Glib.Properties.Property_Object :=
Glib.Properties.Build ("action-target");
Action_Name_Property : constant Glib.Properties.Property_String :=
Glib.Properties.Build ("action-name");
Null_Gtk_Actionable : constant Gtk_Actionable :=
Gtk_Actionable (Glib.Types.Null_Interface);
end Gtk.Actionable;
|