--- a/hedgewars/CCHandlers.inc	Sun Oct 08 18:17:52 2006 +0000
+++ b/hedgewars/CCHandlers.inc	Mon Oct 09 18:26:44 2006 +0000
@@ -383,15 +383,22 @@
 
 procedure chFullScr(var s: shortstring);
 var flags: Longword;
+{$IFDEF DEBUGFILE}
+    buf: array[byte] of char;
+{$ENDIF}
 begin
 if Length(s) = 0 then cFullScreen:= not cFullScreen
                  else cFullScreen:= s = '1';
-   
+
 flags:= SDL_HWSURFACE or SDL_DOUBLEBUF or SDL_HWACCEL;
 if cFullScreen then flags:= flags or SDL_FULLSCREEN
                else SDL_WM_SetCaption('Hedgewars', nil);
 SDL_FreeSurface(SDLPrimSurface);
 SDLPrimSurface:= SDL_SetVideoMode(cScreenWidth, cScreenHeight, cBits, flags);
+
+{$IFDEF DEBUGFILE}
+AddFileLog('SDL video driver: ' + string(SDL_VideoDriverName(buf, sizeof(buf))));
+{$ENDIF}
 TryDo(SDLPrimSurface <> nil, errmsgCreateSurface, true);
 PixelFormat:= SDLPrimSurface.format;
 SDL_ShowCursor(0)