hedgewars/uWorld.pas
changeset 6963 0c181b88daff
parent 6962 ec308eabe09b
child 6982 8d41d22a291d
--- a/hedgewars/uWorld.pas	Sun Apr 29 21:05:09 2012 +0200
+++ b/hedgewars/uWorld.pas	Sun Apr 29 21:17:27 2012 +0200
@@ -1751,6 +1751,7 @@
 
 procedure SetUtilityWidgetState(ammoType: TAmmoType);
 begin
+{$IFDEF TOUCH_INTERFACE}
 if(ammoType = amNothing)then
     ammoType:= CurrentHedgehog^.CurAmmoType;
 
@@ -1772,6 +1773,7 @@
         end
     else if utilityWidget.show then
         animateWidget(@utilityWidget, true, false); 
+{$ENDIF}
 end;
 
 procedure animateWidget(widget: POnScreenWidget; fade, showWidget: boolean);