--- a/hedgewars/uLocale.pas Thu May 10 22:15:31 2012 +0200
+++ b/hedgewars/uLocale.pas Thu May 10 23:21:56 2012 +0200
@@ -29,6 +29,10 @@
function Format(fmt: ansistring; var arg: ansistring): ansistring;
function GetEventString(e: TEventId): ansistring;
+{$IFDEF HWLIBRARY}
+procedure LoadLocaleWrapper(str: pchar); cdecl; export;
+{$ENDIF}
+
implementation
uses uRandom, uUtils, uVariables, uDebug, uConsole;
@@ -129,9 +133,11 @@
Format:= copy(fmt, 1, i - 1) + arg + Format(copy(fmt, i + 2, Length(fmt) - i - 1), arg)
end;
+{$IFDEF HWLIBRARY}
procedure LoadLocaleWrapper(str: pchar); cdecl; export;
begin
LoadLocale(Strpas(str));
end;
+{$ENDIF}
end.