--- a/hedgewars/uGears.pas	Tue May 27 14:30:48 2008 +0000
+++ b/hedgewars/uGears.pas	Tue May 27 14:32:55 2008 +0000
@@ -58,7 +58,7 @@
 procedure ProcessGears;
 procedure SetAllToActive;
 procedure SetAllHHToActive;
-procedure DrawGears(Surface: PSDL_Surface);
+procedure DrawGears;
 procedure FreeGearsList;
 procedure AddMiscGears;
 procedure AssignHHCoords;
@@ -694,7 +694,7 @@
         end;
 end;
 
-procedure DrawGears(Surface: PSDL_Surface);
+procedure DrawGears;
 var Gear, HHGear: PGear;
     i: Longword;
     roplen: LongInt;