hedgewars/uStore.pas
changeset 3628 2b4d878ba565
parent 3626 19f78afa0188
child 3629 86212d2b116a
--- a/hedgewars/uStore.pas	Wed Jul 07 03:03:59 2010 +0200
+++ b/hedgewars/uStore.pas	Wed Jul 07 03:16:12 2010 +0200
@@ -1502,7 +1502,6 @@
 end;
 
 procedure RenderWeaponTooltip(atype: TAmmoType);
-{$IFNDEF IPHONEOS}
 var r: TSDL_Rect;
     i: LongInt;
     extra: ansistring;
@@ -1548,28 +1547,21 @@
 // render window and return the texture
 WeaponTooltipTex:= RenderHelpWindow(trammo[Ammoz[atype].NameId], trammoc[Ammoz[atype].NameId], trammod[Ammoz[atype].NameId], extra, extracolor, SpritesData[sprAMAmmos].Surface, @r)
 end;
-{$ELSE}
-begin end;
-{$ENDIF}
 
 procedure ShowWeaponTooltip(x, y: LongInt);
 begin
-{$IFNDEF IPHONEOS}
 // draw the texture if it exists
 if WeaponTooltipTex <> nil then
     DrawTexture(x, y, WeaponTooltipTex)
-{$ENDIF}
 end;
 
 procedure FreeWeaponTooltip;
 begin
-{$IFNDEF IPHONEOS}
 // free the existing texture (if there's any)
 if WeaponTooltipTex = nil then
     exit;
 FreeTexture(WeaponTooltipTex);
 WeaponTooltipTex:= nil
-{$ENDIF}
 end;
 
 procedure initModule;