hedgewars/uMisc.pas
changeset 3598 a8aa06bae895
parent 3594 aeca3d8f1b29
child 3599 715a43602da8
--- a/hedgewars/uMisc.pas	Wed Jun 30 22:20:52 2010 +0200
+++ b/hedgewars/uMisc.pas	Wed Jun 30 22:42:55 2010 +0200
@@ -131,6 +131,9 @@
     ScreenFadeValue : LongInt;
     ScreenFadeSpeed : LongInt;
 
+{$IFDEF SDL13}
+    SDLwindow: PSDL_Window;
+{$ENDIF}
 
 procedure initModule;
 procedure freeModule;
@@ -777,6 +780,10 @@
     cAltDamage      := true;
 
     ScreenFade      := sfNone;
+    
+{$IFDEF SDL13}
+    SDLwindow       := nil;
+{$ENDIF}    
 {$IFDEF DEBUGFILE}
 {$I-}
 {$IFDEF IPHONEOS}