--- a/hedgewars/uRender.pas	Thu Feb 16 16:02:41 2012 +0100
+++ b/hedgewars/uRender.pas	Thu Feb 16 16:16:59 2012 +0100
@@ -451,6 +451,7 @@
 procedure DrawScreenWidget(widget: POnScreenWidget);
 var alpha: byte = $FF;
 begin
+{$IFDEF USE_TOUCH_INTERFACE}
 with widget^ do
     begin
     if (fadeAnimStart <> 0) then
@@ -485,6 +486,7 @@
         Tint($FF, $FF, $FF, $FF);
         end;
     end;
+{$ENDIF}
 end;
 
 procedure Tint(r, g, b, a: Byte); inline;