LazGetShortLanguageID -> GetLanguageID().LanguageCode

[Grahame Grieve]

So this is a transition I have to make in the trunk of Lazarus, but does anyone know how it should be ifdef'ed so my code that uses it still works with older (current) versions?

[Grahame Grieve]

Claude told me:

Code: Pascal  [Select][+][-]

1.   {$IF DECLARED(GetLanguageID)}
2.   Lang := GetLanguageID().LanguageCode;
3.   {$ELSE}
4.   LazGetShortLanguageID(Lang);
5.   {$ENDIF}  
6.