--- a/hedgewars/uVisualGears.pas	Mon Mar 29 20:49:36 2010 +0000
+++ b/hedgewars/uVisualGears.pas	Mon Mar 29 23:20:34 2010 +0000
@@ -20,12 +20,7 @@
 
 unit uVisualGears;
 interface
-uses SDLh, uConsts, uFloat, Math,
-{$IFDEF GLES11}
-    gles11;
-{$ELSE}
-    GL;
-{$ENDIF}
+uses SDLh, uConsts, uFloat, Math, GLunit;
 
 type PVisualGear = ^TVisualGear;
     TVGearStepProcedure = procedure (Gear: PVisualGear; Steps: Longword);