sdlada_2.5.20_cd53c280/src/sdl-clipboard.ads

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
--------------------------------------------------------------------------------------------------------------------
--  This source code is subject to the Zlib license, see the LICENCE file in the root of this directory.
--------------------------------------------------------------------------------------------------------------------
--  SDL.Clipboard
--
--  Functions to access the clipboard.
--------------------------------------------------------------------------------------------------------------------
with Ada.Strings.UTF_Encoding;

package SDL.Clipboard is
   pragma Preelaborate;

   Clipboard_Error : exception;

   function Get return Ada.Strings.UTF_Encoding.UTF_8_String;
   function Is_Empty return Boolean;
   procedure Set (Text : in Ada.Strings.UTF_Encoding.UTF_8_String);
end SDL.Clipboard;