--- a/hedgewars/uUtils.pas	Thu Dec 02 20:29:46 2010 -0500
+++ b/hedgewars/uUtils.pas	Thu Dec 02 20:40:30 2010 -0500
@@ -8,6 +8,7 @@
 procedure SplitByChar(var a, b: ansistring; c: char);
 
 function  EnumToStr(const en : TGearType) : shortstring; overload;
+function  EnumToStr(const en : TVisualGearType) : shortstring; overload;
 function  EnumToStr(const en : TSound) : shortstring; overload;
 function  EnumToStr(const en : TAmmoType) : shortstring; overload;
 function  EnumToStr(const en : THogEffect) : shortstring; overload;
@@ -83,6 +84,10 @@
 begin
 EnumToStr:= GetEnumName(TypeInfo(TGearType), ord(en))
 end;
+function EnumToStr(const en : TVisualGearType) : shortstring; overload;
+begin
+EnumToStr:= GetEnumName(TypeInfo(TVisualGearType), ord(en))
+end;
 
 function EnumToStr(const en : TSound) : shortstring; overload;
 begin
@@ -340,4 +345,4 @@
 {$ENDIF}
 end;
 
-end.
\ No newline at end of file
+end.