hedgewars/uChat.pas
branchsdl2transition
changeset 11344 b0df3f2fcafc
parent 11343 9006e158a81f
child 11356 b8b208501475
--- a/hedgewars/uChat.pas	Tue Nov 10 22:18:06 2015 +0100
+++ b/hedgewars/uChat.pas	Tue Nov 10 22:37:54 2015 +0100
@@ -726,7 +726,8 @@
 
 procedure CopyToClipboard(var newContent: shortstring);
 begin
-    SendIPC(_S'y' + copy(newContent, 1, 253) + #0);
+    // SDL2 clipboard
+    SDL_SetClipboardText(Str2PChar(newContent));
 end;
 
 procedure CopySelectionToClipboard();