hedgewars/SDLh.pas
branchsdl2transition
changeset 11363 9006e158a81f
parent 11362 ed5a6478e710
child 11364 b0df3f2fcafc
--- a/hedgewars/SDLh.pas	Tue Nov 10 20:43:13 2015 +0100
+++ b/hedgewars/SDLh.pas	Tue Nov 10 22:18:06 2015 +0100
@@ -780,6 +780,8 @@
 function  SDL_InitSubSystem(flags: LongWord): LongInt; cdecl; external SDLLibName;
 procedure SDL_Quit; cdecl; external SDLLibName;
 
+procedure SDL_free(mem: Pointer); cdecl; external SDLLibName;
+
 procedure SDL_Delay(msec: LongWord); cdecl; external SDLLibName;
 function  SDL_GetTicks: LongWord; cdecl; external SDLLibName;
 
@@ -986,6 +988,9 @@
 function  SDLNet_AddSocket(_set: PSDLNet_SocketSet; sock: PTCPSocket): LongInt; cdecl; external SDL_NetLibName;
 function  SDLNet_CheckSockets(_set: PSDLNet_SocketSet; timeout: LongInt): LongInt; cdecl; external SDL_NetLibName;
 
+// SDL 2 clipboard functions
+function SDL_HasClipboardText(): Boolean; cdecl; external SDLLibName;
+function SDL_GetClipboardText(): PChar; cdecl; external SDLLibName;
 
 procedure SDLNet_Write16(value: Word; buf: Pointer);
 procedure SDLNet_Write32(value: LongWord; buf: Pointer);
@@ -1060,5 +1065,6 @@
                   (PByteArray(buf)^[0] shl 24)
 end;
 
+
 end.