/usr/share/ada/adainclude/gtkada/gdk-main.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 | ------------------------------------------------------------------------------
-- GtkAda - Ada95 binding for Gtk+/Gnome --
-- --
-- Copyright (C) 1998-2000 E. Briot, J. Brobecker and A. Charlet --
-- Copyright (C) 1998-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 package provides routines to handle initialization and set up of the
-- Gdk library.
-- </description>
-- <c_version>1.3.6</c_version>
-- <group>Gdk, the low-level API</group>
with Glib; use Glib;
with Gdk.Event;
with Gdk.Types;
package Gdk.Main is
procedure Init;
-- Initialize the library for use.
-- The command line arguments are modified to reflect any arguments
-- which were not handled. (Such arguments should either
-- be handled by the application or dismissed).
procedure Gdk_Exit (Error_Code : Gint);
-- Restore the library to an un-itialized state and exits
-- the program using the "exit" system call.
-- Error_Code is the error value to pass to "exit".
-- Allocated structures are freed and the program exits cleanly.
-- This function is deprecated.
function Get_Display return String;
-- Return the name of the display.
function Pointer_Grab
(Window : Gdk.Gdk_Window;
Owner_Events : Boolean := True;
Event_Mask : Gdk.Event.Gdk_Event_Mask;
Confine_To : Gdk.Gdk_Window := null;
Cursor : Gdk.Gdk_Cursor := null;
Time : Guint32 := 0) return Gdk.Types.Gdk_Grab_Status;
-- Grab the pointer to a specific window.
-- - Window is the window which will receive the grab
-- - Owner_Events specifies whether events will be reported as is,
-- or relative to Window
-- - Event_Mask masks only interesting events
-- - Confine_To limits the cursor movement to the specified window
-- - Cursor changes the cursor for the duration of the grab
-- - Time specifies the time
-- Requires a corresponding call to Pointer_Ungrab
--
-- This is obsolescent in gtk-3, use Gdk.Device.Grab instead
procedure Pointer_Ungrab (Time : Guint32 := 0);
-- Release any pointer grab.
function Pointer_Is_Grabbed return Boolean;
-- Tell wether there is an active pointer grab in effect.
function Keyboard_Grab
(Window : Gdk.Gdk_Window;
Owner_Events : Boolean := True;
Time : Guint32 := 0) return Gdk.Types.Gdk_Grab_Status;
-- Grab the keyboard to a specific window.
-- - Window is the window which will receive the grab
-- - Owner_Events specifies whether events will be reported as is,
-- or relative to Window
-- - Time specifies the time
-- Requires a corresponding call to Keyboard_Ungrab
procedure Keyboard_Ungrab (Time : Guint32 := 0);
-- Release any keyboard grab.
function Screen_Width return Gint;
-- Return the width of the screen.
function Screen_Height return Gint;
-- Return the height of the screen.
function Screen_Width_MM return Gint;
-- Return the width of the screen in millimeters.
function Screen_Height_MM return Gint;
-- Return the height of the screen in millimeters.
procedure Flush;
-- Flush the queue of graphic events and then wait
-- until all requests have been received and processed.
procedure Beep;
-- Emit a beep.
procedure Set_Double_Click_Time (Msec : Guint);
private
pragma Import (C, Gdk_Exit, "gdk_exit");
pragma Import (C, Screen_Width, "gdk_screen_width");
pragma Import (C, Screen_Height, "gdk_screen_height");
pragma Import (C, Screen_Width_MM, "gdk_screen_width_mm");
pragma Import (C, Screen_Height_MM, "gdk_screen_height_mm");
pragma Import (C, Set_Double_Click_Time, "gdk_set_double_click_time");
pragma Import (C, Flush, "gdk_flush");
pragma Import (C, Beep, "gdk_beep");
end Gdk.Main;
-- missing:
-- gdk_wcstombs
-- gdk_mbstowcs
|