--- a/hedgewars/uFLTypes.pas	Sun Sep 28 00:18:01 2014 +0400
+++ b/hedgewars/uFLTypes.pas	Sun Sep 28 00:49:04 2014 +0400
@@ -1,12 +1,16 @@
 unit uFLTypes;
 interface
 
-type TIPCMessage = record
+type
+    TMessageType = (mtPreview);
+
+    TIPCMessage = record
                    str: shortstring;
                    len: Longword;
                    buf: Pointer
                end;
     TIPCCallback = procedure (p: pointer; msg: PChar; len: Longword);
+    TGUICallback = procedure (p: pointer; msgType: TMessageType; msg: PChar; len: Longword);
 
 implementation