File: gtk-selection.ads

-----------------------------------------------------------------------

--               GtkAda - Ada95 binding for Gtk+/Gnome               --

--                                                                   --

--                 Copyright (C) 2000-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.                                       --

--                                                                   --

-- As a special exception, if other files instantiate generics from  --

-- this unit, or you link this unit with other files to produce an   --

-- executable, this  unit  does not  by itself cause  the resulting  --

-- executable to be covered by the GNU General Public License. This  --

-- exception does not however invalidate any other reasons why the   --

-- executable file  might be covered by the  GNU Public License.     --

-----------------------------------------------------------------------

```
 
```
```
--  <description> 
```

--  This package implements support for the selection mechanism (ie a way to

--  get a currently active selection anywhere on your Xserver or on your

```
--  Windows machine). 
```
```
-- 
```

--  This also acts as the low-level support for drag-and-drop, as described

```
--  in Gtk.Dnd. 
```
```
-- 
```

--  A lot of subprograms in this package work on Gdk_Atom types, instead of

--  strings. Converting from one to the other can easily be done through

--  calls to the subprograms in Gdk.Property (Atom_Intern and Atom_Name).

--  The reason we use Gdk_Atom is for efficiency, since comparing two integers

--  is of course faster than comparing two strings.

```
-- 
```

--  The selection mechanism is the primary mechanism by which applications

--  can transfer data to each other on a given system. Even though both

--  applications must be visible on the same screen, this does not mean that

--  they can access the same files or ressources, since they might in fact

--  be running on different machines. You should always keep this in mind

--  when setting the data to be transfered.

```
 
```

--  A selection is a essentially a named clipboard, identified by a string

--  interned as a Gdk_Atom. By claiming ownership of a selection, an

--  application indicates that it will be responsible for supplying its

```
--  contents. 
```
```
 
```

--  The contents of a selection can be represented in a number of formats,

--  called targets. Each target is identified by an atom. A list of all

--  possible targets supported by the selection owner can be retrieved by

--  requesting the special target TARGETS. When a selection is retrieved, the

--  data is accompanied by a type (an atom), and a format (an integer,

--  representing the number of bits per item).

```
-- 
```

--  See also http://standards.freedesktop.org/clipboards-spec/ for

--  more information on the way selection works on X-Window systems.

```
-- 
```
```
--  </description> 
```
```
--  <c_version>2.8.17</c_version> 
```

--  <group>Inter-Process communication</group>

--  <testgtk>create_selection.adb</testgtk>

```
 
```
```
with Gdk.TypesTo API doc
To spec; 
```

with Gdk.PixbufTo API doc
To spec
To body;

with Gtk.WidgetTo API doc
To spec
To body;

with Gtkada.TypesTo API doc
To spec
To body;

```
with GNAT.Strings; 
```
```
 
```

package Gtk.SelectionTo API doc
To spec
To body is

```
 
```

   type Selection_Data is new Gdk.C_ProxyTo API doc
To spec;

   --  Contents of a selection or a drag-and-drop operation.

   --  This structure can only be created internally by GtkAda. However, you

   --  need to be able to access it to get the selection.

   --   - Selection and Target identify the request.

   --   - Type specifies the type of the return.

   --   - if Length is negative, the Data should be ignored. Otherwise, it

```
   --     contains the data itself. 
```

   --   - Time gives the timestamp at which the data was sent.

```
 
```
```
   --------------- 
```
```
   -- Selection -- 
```
```
   --------------- 
```
```
 
```

   subtype Gdk_Selection is Gdk.Types.Gdk_AtomTo API doc
To spec;

   --  These are predefined atom values for several common selections.

   --  You are of course free to create new ones, but most of the time you

   --  should simply use Selection_Primary unless you foresee the need for

   --  multiple simultaneous selections.

   --  To access the clipboard on windows machines, you might need to create

   --  a new selection with Gdk.Property.Atom_Intern ("CLIPBOARD");

```
 
```

   Selection_Primary   : constant Gdk_SelectionTo API doc
To spec;

   Selection_Secondary : constant Gdk_SelectionTo API doc
To spec;

```
 
```
```
   -------------------- 
```
```
   -- Selection_Type -- 
```
```
   -------------------- 
```
```
 
```

   subtype Gdk_Selection_Type is Gdk.Types.Gdk_AtomTo API doc
To spec;

   --  Predefined atom values for selection types.

   --  Although the preferred way in GtkAda to indicate the type of a selection

   --  is to use mime types, these values are provided for compatibility with

```
   --  older X11 applications. 
```
```
 
```

   Selection_Type_Atom     : constant Gdk_Selection_TypeTo API doc
To spec;

```
   --  A Gdk_Atom (format=32 bits) 
```
```
 
```

   Selection_Type_Bitmap   : constant Gdk_Selection_TypeTo API doc
To spec;

   --  A Gdk_Bitmap Id (format=32 bits)

```
 
```

   Selection_Type_Colormap : constant Gdk_Selection_TypeTo API doc
To spec;

```
   --  A colormap Id (format=32 bits) 
```
```
 
```

   Selection_Type_Drawable : constant Gdk_Selection_TypeTo API doc
To spec;

   --  A drawable Id (format=32 bits), ie the result of Gdk.Window.Get_Window.

```
 
```

   Selection_Type_Integer  : constant Gdk_Selection_TypeTo API doc
To spec;

```
   --  An integer (format=32 bits) 
```
```
 
```

   Selection_Type_Pixmap   : constant Gdk_Selection_TypeTo API doc
To spec;

   --  A Gdk_Pixmap ID (format=32 bits)

```
 
```

   Selection_Type_Window   : constant Gdk_Selection_TypeTo API doc
To spec;

   --  A Gdk_Window ID (format=32 bits)

```
 
```

   Selection_Type_String   : constant Gdk_Selection_TypeTo API doc
To spec;

   --  A string encoded in Iso-latin1 format (format=8 bits per character)

```
 
```
```
   ---------------- 
```
```
   -- Gdk_Target -- 
```
```
   ---------------- 
```
```
 
```

   subtype Gdk_Target is Gdk.Types.Gdk_AtomTo API doc
To spec;

   --  Predefined atom values which are used to describe possible targets for

   --  a selection. Other atoms can be used, and the recommended practice for

   --  GtkAda is to to use mime types for this purpose. However, supporting

   --  these types may be useful for compatibility with older programs.

```
 
```

   Target_Bitmap   : constant Gdk_TargetTo API doc
To spec;

   Target_Colormap : constant Gdk_TargetTo API doc
To spec;

   Target_Drawable : constant Gdk_TargetTo API doc
To spec;

   Target_Pixmap   : constant Gdk_TargetTo API doc
To spec;

   Target_String   : constant Gdk_TargetTo API doc
To spec;

```
 
```
```
   ------------------ 
```
```
   -- Target_Flags -- 
```
```
   ------------------ 
```
```
 
```
```
   type Target_Flags is new Integer; 
```

   --  Used to specify constraints on an entry

```
 
```

   Target_No_Constraint : constant Target_FlagsTo API doc
To spec;

```
   --  No constraint is specified. 
```
```
 
```

   Target_Same_App      : constant Target_FlagsTo API doc
To spec;

   --  If this is set, the target will only be selected for drags within a

```
   --  single application. 
```
```
 
```

   Target_Same_Widget   : constant Target_FlagsTo API doc
To spec;

   --  If this is set, the target will only be selected for drags within a

```
   --  single widget. 
```
```
 
```
```
   ------------------ 
```
```
   -- Target_Entry -- 
```
```
   ------------------ 
```
```
 
```
```
   type Target_Entry is record 
```

      Target : Gtkada.Types.Chars_PtrTo API doc
To spec;

      Flags  : Target_FlagsTo API doc
To spec;

```
      Info   : GuintTo API doc
To spec; 
```
```
   end record; 
```

   --  A single type of data that can be supplied or received during a

```
   --  drag-and-drop or a selection. 
```
```
   -- 
```

   --  Target is a string that represents the drag type. This can be any

   --  string if you want to implement drag-and-drop inside your application.

   --  However, if you want to communicate with other external application,

   --  you should use MIME types, ie "text/plain", "text/uri-list", ...

   --  See the RFCs 2045, 2046, 2047, 2048, 2049 for more information on

```
   --  MIME types. 
```
```
   -- 
```
```
   --  For more information, see 
```

   --  ftp://ftp.isi.edu/in-notes/iana/assignments/media-types/

```
   -- 
```

   --  Another set of supported names are the ones associated with the X

   --  Inter-Client Communications Conventions Manual (ICCCM).

   --  Here some of the default names and their meaning. See the ICCCM manual

   --  online for a complete list (for instance at

   --  http://www.tronche.com/gui/x/icccm/).

```
   -- 
```

   --   - "TIMESTAMP"   (type Integer)  Timestamp used to acquire the selection

   --   - "TEXT"        (type Text)     Text in owner's encoding

   --   - "STRING"      (type String)   Iso Latin1 text

   --   - "PIXMAP"      (type Drawable) Pixmap Id

   --   - "BITMAP"      (type Bitmap)   Bitmap Id

   --   - "FOREGROUND"  (type Pixel)    Pixel Value

   --   - "BACKGROUND"  (type Pixel)    Pixel Value

```
   -- 
```

   --  Info is an application-assigned integer (i.e. that you choose), that

   --  will be passed as a signal parameter for all the dnd-related signals,

   --  like "selection_get". This saves a lot of expensive string compares,

   --  and in fact replaced Target everywhere in your application expect in

```
   --  Source_Set and Dest_Set. 
```
```
 
```

   type Target_Entry_Array is array (Natural range <>) of Target_EntryTo API doc
To spec;

```
 
```

   Any_Target_Entry : Target_Entry_ArrayTo API doc
To spec (1 .. 0);

   --  To be used for drop sites that accept any kind of data.

```
 
```
```
   ----------------- 
```
```
   -- Target_List -- 
```
```
   ----------------- 
```
```
 
```

   type Target_List is new Gdk.C_ProxyTo API doc
To spec;

```
   --  A list of targets. 
```

   --  You can only manipulate this list through the functions below.

```
 
```

   function Target_List_NewTo API doc
To body (Targets : Target_Entry_ArrayTo API doc
To spec) return Target_ListTo API doc
To spec;

   --  Create a new list of target, starting from an array.

```
 
```

   procedure Target_List_RefTo API doc
To body (List : Target_ListTo API doc
To spec);

   --  Increment the reference count for the list.

   --  You should almost never have to use this function, this is done

```
   --  transparently by GtkAda. 
```
```
 
```

   procedure Target_List_UnrefTo API doc
To body (List : Target_ListTo API doc
To spec);

   --  Decrement the reference count for the list.

   --  You should almost never have to use this function, since everything is

```
   --  done transparently by GtkAda. 
```

   --  As usual, the list is freed when the reference count reaches 0.

```
 
```

   procedure Target_List_AddTo API doc
To body

     (List   : Target_ListTo API doc
To spec;

      Target : Gdk.Types.Gdk_AtomTo API doc
To spec;

```
      Flags  : GuintTo API doc
To spec; 
```

      Info   : GuintTo API doc
To spec);

```
   --  Add a new target to the list. 
```

   --  You can for instance use the result of Get_Targets (Drag_Context) for

```
   --  the value of Target. 
```
```
 
```

   procedure Target_List_Add_TableTo API doc
To body

     (List    : Target_ListTo API doc
To spec;

      Targets : Target_Entry_ArrayTo API doc
To spec);

   --  Add a new set of targets to the list.

```
 
```

   procedure Target_List_Add_Text_TargetsTo API doc
To body

     (List      : Target_ListTo API doc
To spec;

      Info      : GuintTo API doc
To spec);

   --  Appends the text targets supported internally by gtk+ to List.

   --  All targets are added with the same info.

   --  Info will be passed back to the application.

```
 
```

   procedure Target_List_Add_URI_TargetsTo API doc
To body

     (List      : Target_ListTo API doc
To spec;

      Info      : GuintTo API doc
To spec);

   --  Appends the URI targets supported internally by gtk+ to List.

   --  All targets are added with the same info.

```
 
```

   procedure Target_List_Add_Image_TargetsTo API doc
To body

     (List      : Target_ListTo API doc
To spec;

      Info      : GuintTo API doc
To spec;

```
      Writable  : Boolean); 
```

   --  Appends the image targets supported internally by gtk+ to List.

   --  All targets are added with the same info.

   --  If Writable is True, then only those targets for which gtk+ knows how to

   --  convert a Gdk_Pixbuf into the format are added.

```
 
```

   procedure Target_List_RemoveTo API doc
To body

     (List   : Target_ListTo API doc
To spec;

      Target : Gdk.Types.Gdk_AtomTo API doc
To spec);

   --  Remove a specific target from the list.

```
 
```

   procedure Target_List_FindTo API doc
To body

     (List   : Target_ListTo API doc
To spec;

      Target : Gdk.Types.Gdk_AtomTo API doc
To spec;

      Info   : out GuintTo API doc
To spec;

```
      Found  : out Boolean); 
```

   --  Search for a specific target in the list.

   --  If the target was found, Found is set to True and Info contains the

   --  integer that was associated with the target when it was created.

```
 
```
```
   -------------------- 
```
```
   -- Selection_Data -- 
```
```
   -------------------- 
```
```
 
```

   function Selection_Get_TypeTo API doc
To body return Glib.GTypeTo API doc
To spec;

   --  Return the internal type used for a selection

```
 
```

   function Get_SelectionTo API doc
To body (Selection : Selection_DataTo API doc
To spec) return Gdk_SelectionTo API doc
To spec;

   --  Return the selection used (primary, clipboard, ...)

```
 
```

   function Get_TargetTo API doc
To body (Selection : Selection_DataTo API doc
To spec) return Gdk.Types.Gdk_AtomTo API doc
To spec;

   --  Return the target of the selection (ie a MIME string that identifies

```
   --  the selection). 
```
```
 
```

   function Get_TypeTo API doc
To body (Selection : Selection_DataTo API doc
To spec) return Gdk.Types.Gdk_AtomTo API doc
To spec;

   --  Return the type of the selection, as defined in Gdk_Selection_Type,

   --  ie for compatibility with older X11 applications.

```
 
```

   function Get_FormatTo API doc
To body (Selection : Selection_DataTo API doc
To spec) return GintTo API doc
To spec;

```
   --  Return the format of the data. 
```

   --  The semantics depends on the type of data. For instance, for strings

   --  this is the number of bits per character.

```
 
```

   function Get_DataTo API doc
To body (Selection : Selection_DataTo API doc
To spec) return System.Address;

   --  Return the data of the selection.

   --  This should be ignored if Get_Length returns a value < 0.

```
 
```

   function Get_Data_As_StringTo API doc
To body (Selection : Selection_DataTo API doc
To spec) return String;

```
   --  Return the data as a string. 
```

   --  This is only a convenience function, since it simply creates a string

```
   --  from the return of Get_Data. 
```
```
 
```

   function Get_LengthTo API doc
To body (Selection : Selection_DataTo API doc
To spec) return GintTo API doc
To spec;

```
   --  Return the length of the data. 
```
```
 
```
```
   ---------------------------------- 
```
```
   -- Setting and getting contents -- 
```
```
   ---------------------------------- 
```
```
 
```

   function Set_PixbufTo API doc
To body

     (Selection : Selection_DataTo API doc
To spec;

      Pixbuf    : Gdk.Pixbuf.Gdk_PixbufTo API doc
To spec) return Boolean;

   --  Sets the contents of the selection from a pixbuf

   --  The pixbuf is converted to the form determined by

```
   --  Get_Target (Selection_Data). 
```

   --  Returns True if the selection was successfully set.

```
 
```

   function Get_PixbufTo API doc
To body

     (Selection : Selection_DataTo API doc
To spec) return Gdk.Pixbuf.Gdk_PixbufTo API doc
To spec;

   --  Gets the contents of the selection data as a pixbuf.

   --  Return value: if the selection data contained a recognized

   --  image type and it could be converted to a pixbuf, a

   --  newly allocated pixbuf is returned, otherwise null.

   --  If the result is non-null it must be freed with Unref.

```
 
```

   function Targets_Include_ImageTo API doc
To body

     (Selection : Selection_DataTo API doc
To spec; Writable : Boolean := True) return Boolean;

   --  Given a Selection object holding a list of targets, determines if any of

   --  the targets in these targets can be used to provide a Gdk.Pixbuf.

   --  Writable: whether to accept only targets for which gtk+ knows how to

   --  convert a pixbuf into the format.

   --  Returns True if Selection holds a list of targets and a suitable

```
   --  target for images is included 
```
```
 
```
```
   function Set_TextTo API doc
To body 
```

     (Selection : Selection_DataTo API doc
To spec;

      Str       : UTF8_StringTo API doc
To spec) return Boolean;

   --  Sets the contents of the selection from a UTF-8 encoded string.

   --  The string is converted to the form determined by

```
   --  Get_Target (Selection_Data). 
```
```
 
```

   function Get_TextTo API doc
To body (Selection : Selection_DataTo API doc
To spec) return UTF8_StringTo API doc
To spec;

   --  Gets the contents of the selection data as a UTF-8 string.

   --  Return value: if the selection data contained a recognized

   --  text type and it could be converted to UTF-8, the string is returned.

```
 
```

   function Targets_Include_TextTo API doc
To body (Selection : Selection_DataTo API doc
To spec) return Boolean;

   --  Given a Selection object holding a list of targets, determines if any of

   --  the targets can be used to provide text.

```
 
```
```
   function Set_UrisTo API doc
To body 
```

     (Selection : Selection_DataTo API doc
To spec;

      URIs      : GNAT.Strings.String_List)

```
      return Boolean; 
```

   --  Sets the contents of the selection from a list of URIs.

   --  The string is converted to the form determined by

```
   --  Get_Target (Selection). 
```

   --  Return True if the selection was successfully set.

```
 
```
```
   function Get_UrisTo API doc
To body 
```

     (Selection : Selection_DataTo API doc
To spec)

```
      return GNAT.Strings.String_List; 
```

   --  Gets the contents of the selection data as array of URIs.

   --  The returned value must be freed by the caller.

```
 
```

   function Get_TargetsTo API doc
To body

     (Selection : Selection_DataTo API doc
To spec) return Gdk.Types.Gdk_Atom_ArrayTo API doc
To spec;

   --  Gets the contents of Selection_Data as an array of targets.

   --  This can be used to interpret the results of getting

   --  the standard TARGETS target that is always supplied for

```
   --  any selection. 
```

   --  This is different from Get_Target, which indicate the current format

   --  that the selection contains. Get_Targets only applies when Get_Target

```
   --  is "TARGETS". 
```
```
 
```

   procedure Selection_Data_SetTo API doc
To body

     (Selection : Selection_DataTo API doc
To spec;

      The_Type  : Gdk.Types.Gdk_AtomTo API doc
To spec;

      Format    : GintTo API doc
To spec;

```
      Data      : System.Address; 
```

      Length    : GintTo API doc
To spec);

   --  General form of Selection_Data_Set.

   --  Any data can be transmitted. Length is the number of bytes in Data.

```
 
```

   pragma Import (C, Selection_Data_SetTo API doc
To spec, "gtk_selection_data_set");

```
 
```

   procedure Selection_Data_SetTo API doc
To body

     (Selection : Selection_DataTo API doc
To spec;

      The_Type  : Gdk.Types.Gdk_AtomTo API doc
To spec;

      Format    : GintTo API doc
To spec;

```
      Data      : String); 
```

   --  Set the data for a selection (special case for strings)

   --  This function is generally called when a drag-and-drop operation

   --  ask the source widget for the data to be transmitted. In that case,

   --  a Selection_Data was already transmitted and is given as a handler

   --  parameter for the signal "drag_data_get". The_Type can simply be

   --  extracted from the Selection_Data.

```
 
```

   function Selection_Data_CopyTo API doc
To body

     (Selection : Selection_DataTo API doc
To spec) return Selection_DataTo API doc
To spec;

   --  Make a copy of a selection data.

```
 
```

   procedure Selection_Data_FreeTo API doc
To body (Selection : Selection_DataTo API doc
To spec);

   --  Free a Selection_Data structure returned from Selection_Data_Copy.

```
 
```
```
   -------------------------------- 
```
```
   -- Manipulating the selection -- 
```
```
   -------------------------------- 
```
```
 
```
```
   function Owner_SetTo API doc
To body 
```

     (Widget    : Gtk.Widget.Gtk_WidgetTo API doc
To spec;

      Selection : Gdk_SelectionTo API doc
To spec := Selection_PrimaryTo API doc
To spec;

      Time      : Guint32To API doc
To spec := 0) return Boolean;

   --  Claim ownership of a given selection for a particular widget,

   --  or, if widget is null, release ownership of the selection.

```
   -- 
```

   --  Once a Widget has claimed selection, it is responsible for delivering

```
   --  the data whenever it is needed. 
```
```
   -- 
```

   --  Time is the timestamp for claiming the selection (default is the current

```
   --  time). 
```

   --  This function returns True if the operation succeeded.

```
 
```

   procedure Add_TargetTo API doc
To body

     (Widget    : access Gtk.Widget.Gtk_Widget_RecordTo API doc
To spec
To body'Class;

      Selection : Gdk_SelectionTo API doc
To spec;

      Target    : Gdk.Types.Gdk_AtomTo API doc
To spec;

      Info      : GuintTo API doc
To spec);

   --  Add specified target to the list of supported targets for a given

```
   --  widget and selection. 
```

   --  Info is an integer which will be passed back to the application instead

   --  of a string when the target is used.

```
 
```

   procedure Add_TargetsTo API doc
To body

     (Widget    : access Gtk.Widget.Gtk_Widget_RecordTo API doc
To spec
To body'Class;

      Selection : Gdk_SelectionTo API doc
To spec;

      Targets   : Target_Entry_ArrayTo API doc
To spec);

   --  Add a set of targets to the list of supported targets for a given widget

```
   --  and selection. 
```
```
 
```

   procedure Clear_TargetsTo API doc
To body

     (Widget    : access Gtk.Widget.Gtk_Widget_RecordTo API doc
To spec
To body'Class;

      Selection : Gdk_SelectionTo API doc
To spec);

   --  Clear the list of supported targets for a given widget and selection.

```
 
```
```
   function ConvertTo API doc
To body 
```

     (Widget    : access Gtk.Widget.Gtk_Widget_RecordTo API doc
To spec
To body'Class;

      Selection : Gdk_SelectionTo API doc
To spec := Selection_PrimaryTo API doc
To spec;

      Target    : Gdk.Types.Gdk_AtomTo API doc
To spec;

      Time      : Guint32To API doc
To spec := 0) return Boolean;

   --  Request the contents of a selection.

   --  When received, a "selection_received" signal will be generated, and the

   --  widget needs to have a handler for it.

```
   -- 
```

   --  Target is the form of information desired, for instance an intern

   --  Gdk_Atom whose name is "text/plain", or one of the Gdk_Target values.

```
   -- 
```

   --  This function returns True if the request succeeded, False if the

   --  request could not be processed, for instance if there was already a

   --  request in process for this widget or this target is not known by the

```
   --  owner of the selection. 
```
```
   -- 
```

   --  Widget is the widget which acts as a requestor.

```
 
```

   procedure Remove_AllTo API doc
To body (Widget : access Gtk.Widget.Gtk_Widget_RecordTo API doc
To spec
To body'Class);

   --  Remove all handlers and unsets ownership of all selections for a widget.

   --  Called when widget is being destroyed. This function will not generally

```
   --  be called by applications. 
```
```
 
```
```
   ------------- 
```
```
   -- Signals -- 
```
```
   ------------- 
```
```
 
```
```
   --  <signals> 
```

   --  The following new signals are defined for the class

   --  Gtk.Widget.Gtk_Widget to support drag-and-drop.

   --  Please note that no default marshaller is provided in GtkAda for these

   --  handlers, and that you will have to use the general form of callbacks

   --  instead, getting the value of the parameters directly from the

```
   --  Gtk_Args structure. 
```
```
   -- 
```

   --  - "selection_get"  (source side)

   --    procedure Handler (Widget : access Gtk_Widget_Record'Class;

   --                       Data   : Selection_Data;

   --                       Info   : Guint;

   --                       Time   : Guint);

```
   -- 
```

   --    This signal is sent to the owner of a selection whenever some other

   --    widget wants to get data from that selection. The type of the data

   --    is indicated in Info, and is the third field that was set in the

   --    Target_Entrys for that specific widget and selection.

```
   -- 
```

   --    The handler should modify the Data in the selection.

```
   -- 
```

   --  - "selection_received"  (client side)

   --    procedure Handler (Widget : access Gtk_Widget_Record'Class;

   --                       Data   : Selection_Data;

   --                       Time   : Guint);

```
   -- 
```

   --    This signal is sent to the receiver end of a selection, when the data

   --    has been sent by the owner. The receiver should call Convert, which

   --    will emit the signal selection_get to ask for the contents of the

   --    selection, and then selection_received will be emitted to warn the

```
   --    receiver. 
```
```
   -- 
```

   --    Note: you can not connect this signal to a widget that does not have

   --    an associated Gdk_Window (i.e the flag Gtk.Widget.No_Window must not

   --    be set for this widget), since it needs to be able to receive

   --    Property_Notify events from the server. It will not work with a

```
   --    Gtk_Label for instance. 
```
```
   -- 
```
```
   --  </signals> 
```
```
 
```
```
private 
```
```
 
```

   pragma Import (C, Target_List_RefTo API doc
To spec, "gtk_target_list_ref");

   pragma Import (C, Target_List_UnrefTo API doc
To spec, "gtk_target_list_unref");

   pragma Import (C, Target_List_AddTo API doc
To spec, "gtk_target_list_add");

   pragma Import (C, Target_List_RemoveTo API doc
To spec, "gtk_target_list_remove");

```
 
```

   pragma Import (C, Get_SelectionTo API doc
To spec, "gtk_selection_data_get_selection");

   pragma Import (C, Get_TargetTo API doc
To spec,    "gtk_selection_data_get_target");

   pragma Import (C, Get_TypeTo API doc
To spec,      "gtk_selection_data_get_data_type");

   pragma Import (C, Get_FormatTo API doc
To spec,    "gtk_selection_data_get_format");

   pragma Import (C, Get_DataTo API doc
To spec,      "gtk_selection_data_get_data");

   pragma Import (C, Get_LengthTo API doc
To spec,    "gtk_selection_data_get_length");

```
 
```

   pragma Import (C, Selection_Data_CopyTo API doc
To spec, "gtk_selection_data_copy");

   pragma Import (C, Selection_Data_FreeTo API doc
To spec, "gtk_selection_data_free");

   pragma Import (C, Selection_Get_TypeTo API doc
To spec, "gtk_selection_data_get_type");

   pragma Import (C, Target_List_Add_Text_TargetsTo API doc
To spec,

                  "gtk_target_list_add_text_targets");

   pragma Import (C, Target_List_Add_URI_TargetsTo API doc
To spec,

                  "gtk_target_list_add_uri_targets");

```
 
```

   function Make_Atom (Num : GulongTo API doc
To spec) return Gdk.Types.Gdk_AtomTo API doc
To spec;

   pragma Import (C, Make_Atom, "ada_make_atom");

```
 
```

   Selection_PrimaryTo API doc
To spec   : constant Gdk_SelectionTo API doc
To spec := Make_Atom (1);

   Selection_SecondaryTo API doc
To spec : constant Gdk_SelectionTo API doc
To spec := Make_Atom (2);

```
 
```

   Selection_Type_AtomTo API doc
To spec     : constant Gdk_Selection_TypeTo API doc
To spec := Make_Atom (4);

   Selection_Type_BitmapTo API doc
To spec   : constant Gdk_Selection_TypeTo API doc
To spec := Make_Atom (5);

   Selection_Type_ColormapTo API doc
To spec : constant Gdk_Selection_TypeTo API doc
To spec := Make_Atom (7);

   Selection_Type_DrawableTo API doc
To spec : constant Gdk_Selection_TypeTo API doc
To spec := Make_Atom (17);

   Selection_Type_IntegerTo API doc
To spec  : constant Gdk_Selection_TypeTo API doc
To spec := Make_Atom (19);

   Selection_Type_PixmapTo API doc
To spec   : constant Gdk_Selection_TypeTo API doc
To spec := Make_Atom (20);

   Selection_Type_WindowTo API doc
To spec   : constant Gdk_Selection_TypeTo API doc
To spec := Make_Atom (33);

   Selection_Type_StringTo API doc
To spec   : constant Gdk_Selection_TypeTo API doc
To spec := Make_Atom (31);

```
 
```

   Target_No_ConstraintTo API doc
To spec : constant Target_FlagsTo API doc
To spec := 0;

   Target_Same_AppTo API doc
To spec      : constant Target_FlagsTo API doc
To spec := 1;

   Target_Same_WidgetTo API doc
To spec   : constant Target_FlagsTo API doc
To spec := 2;

```
 
```

   Target_BitmapTo API doc
To spec   : constant Gdk_TargetTo API doc
To spec := Make_Atom (5);

   Target_ColormapTo API doc
To spec : constant Gdk_TargetTo API doc
To spec := Make_Atom (7);

   Target_DrawableTo API doc
To spec : constant Gdk_TargetTo API doc
To spec := Make_Atom (17);

   Target_PixmapTo API doc
To spec   : constant Gdk_TargetTo API doc
To spec := Make_Atom (20);

   Target_StringTo API doc
To spec   : constant Gdk_TargetTo API doc
To spec := Make_Atom (31);

end Gtk.SelectionTo API doc
To spec
To body;

```
 
```

--  This function is indicated as obsolescent by gtk+ developers:

```
--  No binding: gtk_selection_clear 
```
```
 
```

--  No binding: gtk_selection_owner_set_for_display

Documentation