--- a/hedgewars/uRender.pas	Wed May 02 12:24:44 2012 +0200
+++ b/hedgewars/uRender.pas	Wed May 02 11:43:43 2012 +0100
@@ -459,9 +459,9 @@
 end;
 
 procedure DrawScreenWidget(widget: POnScreenWidget);
+{$IFDEF USE_TOUCH_INTERFACE}
 var alpha: byte = $FF;
 begin
-{$IFDEF USE_TOUCH_INTERFACE}
 with widget^ do
     begin
     if (fadeAnimStart <> 0) then
@@ -499,6 +499,9 @@
         Tint($FF, $FF, $FF, $FF);
         end;
     end;
+{$ELSE}
+begin
+widget:= widget; // avoid hint
 {$ENDIF}
 end;