/usr/share/ada/adainclude/gtkada/gtk-action.ads is in libgtkada2.24.4-dev 2.24.4dfsg-1.
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 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 | -----------------------------------------------------------------------
-- GtkAda - Ada95 binding for Gtk+/Gnome --
-- --
-- Copyright (C) 2006-2013, 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. --
-- --
-----------------------------------------------------------------------
-- <description>
-- Actions represent operations that the user can perform, along with some
-- information on how it should be presented in the interface. Each action
-- provides methods to create icons, menu items and toolbar items representing
-- itself.
--
-- As well as the callback that is called when the action gets activated, the
-- following also gets associated with the action:
-- - a name (not translated, for path lookup)
-- - a label (translated, for display)
-- - an accelerator
-- - whether label indicates a stock id
-- - a tooltip (optional, translated)
-- - a toolbar label (optional, shorter than label)
--
-- The action will also have some state information:
-- - visible (shown/hidden)
-- - sensitive (enabled/disabled)
--
-- Apart from regular actions, there are toggle actions, which can be toggled
-- between two states and radio actions, of which only one in a group can be
-- in the "active" state. Other actions can be implemented as Gtk_Action
-- subclasses.
--
-- Each action can have one or more proxy menu item, toolbar button or other
-- proxy widgets. Proxies mirror the state of the action (text label, tooltip,
-- icon, visible, sensitive, etc), and should change when the action's state
-- changes. When the proxy is activated, it should activate its action.
-- </description>
-- <c_version>2.16.6</c_version>
-- <group>Action-based menus</group>
with Glib.G_Icon;
with Glib.Object;
with Glib.Properties;
with Gtk.Accel_Group;
with Gtk.Enums;
with Gtk.Widget;
with System;
package Gtk.Action is
type Gtk_Action_Record is new Glib.Object.GObject_Record with private;
type Gtk_Action is access all Gtk_Action_Record'Class;
procedure Gtk_New
(Action : out Gtk_Action;
Name : String;
Label : String;
Tooltip : String := "";
Stock_Id : String := "");
procedure Initialize
(Action : access Gtk_Action_Record'Class;
Name : String;
Label : String;
Tooltip : String := "";
Stock_Id : String := "");
-- Creates a new Gtk_Action object. To add the action to a Gtk_Action_Group
-- and set the accelerator for the action, call
-- Gtk.Action_Group.Add_Action_With_Accel.
-- Name must be a unique name for the action. Label is the label displayed
-- in menu items and on buttons.
function Convert (C_Object : System.Address) return Gtk_Action;
-- Convert a C object to a Gtk_Action. The type of the C object must match,
-- of course.
function Get_Type return GType;
-- Return the internal value associated with a Gtk_Action
procedure Activate (Action : access Gtk_Action_Record);
-- Emits the "activate" signal on the specified action, if it isn't
-- insensitive. This gets called by the proxy widgets when they get
-- activated.
-- It can also be used to manually activate an action.
procedure Connect_Accelerator (Action : access Gtk_Action_Record);
procedure Disconnect_Accelerator (Action : access Gtk_Action_Record);
-- Installs the accelerator for Action if Action has an accel path and
-- group. See Set_Accel_Path and Set_Accel_Group.
-- Since multiple proxies may independently trigger the installation
-- of the accelerator, the Action counts the number of times this
-- function has been called and doesn't remove the accelerator until
-- Disconnect_Accelerator has been called as many times.
function Create_Icon
(Action : access Gtk_Action_Record;
Icon_Size : Gtk.Enums.Gtk_Icon_Size) return Gtk.Widget.Gtk_Widget;
-- This function is intended for use by action implementations to
-- create icons displayed in the proxy widgets.
-- Returns a widget that displays the icon for this action.
function Get_GIcon (Action : access Gtk_Action_Record)
return Glib.G_Icon.G_Icon;
procedure Set_GIcon
(Action : access Gtk_Action_Record;
Icon : Glib.G_Icon.G_Icon);
-- Gets/Sets the Action's G_Icon.
function Get_Icon_Name (Action : access Gtk_Action_Record) return String;
procedure Set_Icon_Name
(Action : access Gtk_Action_Record;
Icon_Name : String);
-- Gets/Sets the Action's icon name.
function Get_Is_Important (Action : access Gtk_Action_Record)
return Boolean;
procedure Set_Is_Important
(Action : access Gtk_Action_Record;
Is_Important : Boolean);
-- Gets/Sets whether or not Action is important.
function Get_Label (Action : access Gtk_Action_Record) return String;
procedure Set_Label
(Action : access Gtk_Action_Record;
Label : String);
-- Gets/Sets the label text associated with Action.
function Get_Short_Label (Action : access Gtk_Action_Record) return String;
procedure Set_Short_Label
(Action : access Gtk_Action_Record;
Short_Label : String);
-- Gets/Sets the short label text of Action.
function Get_Stock_Id (Action : access Gtk_Action_Record) return String;
procedure Set_Stock_Id
(Action : access Gtk_Action_Record;
Stock_Id : String);
-- Gets/Sets the stock id of Action.
function Get_Tooltip (Action : access Gtk_Action_Record) return String;
procedure Set_Tooltip
(Action : access Gtk_Action_Record;
Tooltip : String);
-- Gets/Sets the tooltip text associated with Action.
function Get_Visible_Horizontal (Action : access Gtk_Action_Record)
return Boolean;
procedure Set_Visible_Horizontal
(Action : access Gtk_Action_Record;
Visible_Horizontal : Boolean);
-- Gets/Sets whether Action is visible when horizontal.
function Get_Visible_Vertical (Action : access Gtk_Action_Record)
return Boolean;
procedure Set_Visible_Vertical
(Action : access Gtk_Action_Record;
Visible_Vertical : Boolean);
-- Gets/Sets whether Action is visible when vertical.
function Create_Menu
(Action : access Gtk_Action_Record)
return Gtk.Widget.Gtk_Widget;
-- If Action provides a Gtk_Menu widget as a submenu for the menu
-- item or the toolbar item it creates, this function returns an
-- instance of that menu.
-- Since: 2.12
function Create_Menu_Item
(Action : access Gtk_Action_Record) return Gtk.Widget.Gtk_Widget;
-- Creates a menu item widget that proxies for the given action.
function Create_Tool_Item
(Action : access Gtk_Action_Record) return Gtk.Widget.Gtk_Widget;
-- Creates a toolbar item widget that proxies for the given action.
procedure Set_Accel_Group
(Action : access Gtk_Action_Record;
Accel_Group : Gtk.Accel_Group.Gtk_Accel_Group := null);
-- Sets the Gtk_Accel_Group in which the accelerator for this action
-- will be installed.
procedure Set_Accel_Path
(Action : access Gtk_Action_Record; Accel_Path : String);
function Get_Accel_Path (Action : access Gtk_Action_Record) return String;
-- Sets the accel path for this action. All proxy widgets associated
-- with the action will have this accel path, so that their
-- accelerators are consistent.
function Get_Name (Action : access Gtk_Action_Record) return String;
-- Returns the name of the action.
procedure Set_Sensitive
(Action : access Gtk_Action_Record; Sensitive : Boolean);
function Get_Sensitive (Action : access Gtk_Action_Record) return Boolean;
-- Returns whether the action itself is sensitive. Note that this doesn't
-- necessarily mean effective sensitivity. See Is_Sensitive for that.
function Is_Sensitive (Action : access Gtk_Action_Record) return Boolean;
-- Returns whether the action is effectively sensitive.
-- Returns True if teh action and its associated action group are both
-- sensitive.
procedure Set_Visible
(Action : access Gtk_Action_Record; Visible : Boolean);
function Get_Visible (Action : access Gtk_Action_Record) return Boolean;
-- Returns whether the action itself is visible. Note that this doesn't
-- necessarily mean effective visibility. See Is_Visible for that.
function Is_Visible (Action : access Gtk_Action_Record) return Boolean;
-- Returns whether the action is effectively visible.
-- Returns True if the action and its associated action group are both
-- visible.
-------------
-- Proxies --
-------------
function Get_Proxies
(Action : access Gtk_Action_Record) return Gtk.Widget.Widget_SList.GSlist;
-- Returns the proxy widgets for an action. The returned list must not be
-- modified
function Gtk_Widget_Get_Action
(Widget : access Gtk.Widget.Gtk_Widget_Record) return Gtk_Action;
pragma Obsolescent (Gtk_Widget_Get_Action);
-- Returns the action that Widget is a proxy for.
-- See also Get_Proxies.
-- Since: 2.10
procedure Connect_Proxy
(Action : access Gtk_Action_Record;
Proxy : access Gtk.Widget.Gtk_Widget_Record'Class);
pragma Obsolescent (Connect_Proxy);
procedure Disconnect_Proxy
(Action : access Gtk_Action_Record;
Proxy : access Gtk.Widget.Gtk_Widget_Record'Class);
pragma Obsolescent (Disconnect_Proxy);
-- Connects a widget to an action object as a proxy. Synchronises various
-- properties of the action with the widget (such as label text, icon,
-- tooltip, etc), and attaches a callback so that the action gets activated
-- when the proxy widget does.
-- If the widget is already connected to an action, it is disconnected
-- first.
-- Disconnect_Proxy does not destroy the widget.
procedure Block_Activate (Action : access Gtk_Action_Record);
procedure Unblock_Activate (Action : access Gtk_Action_Record);
-- Disable or reenable activation signals from the action. This is
-- needed when updating the state of your proxy widget could result
-- in calling Activate. This is a convenience function to avoid
-- recursing in those cases (updating toggle state for instance).
procedure Block_Activate_From
(Action : access Gtk_Action_Record;
Proxy : access Gtk.Widget.Gtk_Widget_Record'Class);
pragma Obsolescent (Block_Activate_From);
procedure Unblock_Activate_From
(Action : access Gtk_Action_Record;
Proxy : access Gtk.Widget.Gtk_Widget_Record'Class);
pragma Obsolescent (Unblock_Activate_From);
-- Disables calls to the Activate function by signals on the given proxy
-- widget. This is used to break notification loops for things like check
-- or radio actions.
-- This function is intended for use by action implementations.
----------------
-- Properties --
----------------
-- <properties>
-- The following properties are defined for this widget. See
-- Glib.Properties for more information on properties.
--
-- Name: Action_Group_Property
-- Type: Object
-- Descr: The Gtk_Action_Group this Gtk_Action is associated with, or NULL
-- (for internal use).
--
-- Name: GIcon_Property
-- Type: Object
-- Descr: The GIcon being displayed
--
-- Name: Hide_If_Empty_Property
-- Type: Boolean
-- Descr: When TRUE, empty menu proxies for this action are hidden.
--
-- Name: Icon_Name_Property
-- Type: String
-- Descr: The name of the icon from the icon theme
--
-- Name: Is_Important_Property
-- Type: Boolean
-- Descr: Whether the action is considered important.
--
-- Name: Label_Property
-- Type: String
-- Descr: The label used for menu items and buttons
--
-- Name: Name_Property
-- Type: String
-- Descr: A unique name for the action.
--
-- Name: Sensitive_Property
-- Type: Boolean
-- Descr: Whether the action is enabled.
--
-- Name: Short_Label_Property
-- Type: String
-- Descr: A shorter label that may be used on toolbar buttons.
--
-- Name: Stock_Id_Property
-- Type: String
-- Descr: The stock icon displayed in widgets representing
--
-- Name: Tooltip_Property
-- Type: String
-- Descr: A tooltip for this action.
--
-- Name: Visible_Property
-- Type: Boolean
-- Descr: Whether the action is visible.
--
-- Name: Visible_Horizontal_Property
-- Type: Boolean
-- Descr: Whether the toolbar item is visible when the toolbar
--
-- Name: Visible_Overflown_Property
-- Type: Boolean
-- Descr: When TRUE, toolitem proxies for this action
--
-- Name: Visible_Vertical_Property
-- Type: Boolean
-- Descr: Whether the toolbar item is visible when the toolbar
--
-- </properties>
Action_Group_Property : constant Glib.Properties.Property_Object;
GIcon_Property : constant Glib.Properties.Property_Object;
Hide_If_Empty_Property : constant Glib.Properties.Property_Boolean;
Icon_Name_Property : constant Glib.Properties.Property_String;
Is_Important_Property : constant Glib.Properties.Property_Boolean;
Label_Property : constant Glib.Properties.Property_String;
Name_Property : constant Glib.Properties.Property_String;
Sensitive_Property : constant Glib.Properties.Property_Boolean;
Short_Label_Property : constant Glib.Properties.Property_String;
Stock_Id_Property : constant Glib.Properties.Property_String;
Tooltip_Property : constant Glib.Properties.Property_String;
Visible_Property : constant Glib.Properties.Property_Boolean;
Visible_Horizontal_Property : constant Glib.Properties.Property_Boolean;
Visible_Overflown_Property : constant Glib.Properties.Property_Boolean;
Visible_Vertical_Property : constant Glib.Properties.Property_Boolean;
-------------
-- Signals --
-------------
-- <signals>
-- The following new signals are defined for this widget:
--
-- - "activate"
-- procedure Handler (Action : access Gtk_Action_Record'Class);
-- The "activate" signal is emitted when the action is activated.
-- </signals>
Signal_Activate : constant Glib.Signal_Name := "activate";
private
type Gtk_Action_Record is new Glib.Object.GObject_Record with null record;
Action_Group_Property : constant Glib.Properties.Property_Object :=
Glib.Properties.Build ("action-group");
GIcon_Property : constant Glib.Properties.Property_Object :=
Glib.Properties.Build ("gicon");
Hide_If_Empty_Property : constant Glib.Properties.Property_Boolean :=
Glib.Properties.Build ("hide-if-empty");
Icon_Name_Property : constant Glib.Properties.Property_String :=
Glib.Properties.Build ("icon-name");
Is_Important_Property : constant Glib.Properties.Property_Boolean :=
Glib.Properties.Build ("is-important");
Label_Property : constant Glib.Properties.Property_String :=
Glib.Properties.Build ("label");
Name_Property : constant Glib.Properties.Property_String :=
Glib.Properties.Build ("name");
Sensitive_Property : constant Glib.Properties.Property_Boolean :=
Glib.Properties.Build ("sensitive");
Short_Label_Property : constant Glib.Properties.Property_String :=
Glib.Properties.Build ("short-label");
Stock_Id_Property : constant Glib.Properties.Property_String :=
Glib.Properties.Build ("stock-id");
Tooltip_Property : constant Glib.Properties.Property_String :=
Glib.Properties.Build ("tooltip");
Visible_Property : constant Glib.Properties.Property_Boolean :=
Glib.Properties.Build ("visible");
Visible_Horizontal_Property : constant Glib.Properties.Property_Boolean :=
Glib.Properties.Build ("visible-horizontal");
Visible_Overflown_Property : constant Glib.Properties.Property_Boolean :=
Glib.Properties.Build ("visible-overflown");
Visible_Vertical_Property : constant Glib.Properties.Property_Boolean :=
Glib.Properties.Build ("visible-vertical");
pragma Import (C, Get_Type, "gtk_action_get_type");
end Gtk.Action;
-- No binding: gtk_action_get_accel_closure
|