hedgewars/uFLTypes.pas
branchqmlfrontend
changeset 10418 091d2c0216c3
parent 10406 b5fd52ac760f
child 10420 02c573d19224
--- a/hedgewars/uFLTypes.pas	Sat Sep 20 00:56:54 2014 +0400
+++ b/hedgewars/uFLTypes.pas	Sun Sep 21 00:37:50 2014 +0400
@@ -1,6 +1,12 @@
 unit uFLTypes;
+interface
 
-interface
+type TIPCMessage = record
+                   str: shortstring;
+                   len: Longword;
+                   buf: Pointer
+               end;
+    TIPCCallback = procedure (p: pointer; len: byte; msg: PChar);
 
 implementation