diff options
| author | Dan Gudmundsson <[email protected]> | 2014-03-25 16:43:57 +0100 |
|---|---|---|
| committer | Dan Gudmundsson <[email protected]> | 2014-03-26 11:56:19 +0100 |
| commit | 3a51f434c6a79bbf7dca8b0fd96a5df7671b5792 (patch) | |
| tree | 9c68af076355d760240430fdaa9697f0bba3fef6 /lib/wx/api_gen/wx_gen.erl | |
| parent | 4486d61b3ea94875564337580cff66c0b7a79c5f (diff) | |
| download | otp-3a51f434c6a79bbf7dca8b0fd96a5df7671b5792.tar.gz otp-3a51f434c6a79bbf7dca8b0fd96a5df7671b5792.tar.bz2 otp-3a51f434c6a79bbf7dca8b0fd96a5df7671b5792.zip | |
wx: Add wxLocale class
Diffstat (limited to 'lib/wx/api_gen/wx_gen.erl')
| -rw-r--r-- | lib/wx/api_gen/wx_gen.erl | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/lib/wx/api_gen/wx_gen.erl b/lib/wx/api_gen/wx_gen.erl index 48a48e55d6..a60a9a93d5 100644 --- a/lib/wx/api_gen/wx_gen.erl +++ b/lib/wx/api_gen/wx_gen.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 2008-2013. All Rights Reserved. +%% Copyright Ericsson AB 2008-2014. All Rights Reserved. %% %% The contents of this file are subject to the Erlang Public License, %% Version 1.1, (the "License"); you may not use this file except in @@ -743,7 +743,14 @@ parse_type2([N="wxTreeItemData"|R],Info,Opts,T) -> parse_type2(R,Info,Opts,T#type{name="wxETreeItemData",base={term,N}}); parse_type2([N="wxClientData"|R],Info,Opts,T) -> parse_type2(R,Info,Opts,T#type{name="wxeErlTerm",base={term,N}}); -parse_type2([N="wxChar"|R],Info,Opts,T) -> +parse_type2([N="wxChar",{by_ref,_}|R],Info,Opts,T = #type{mod=[const]}) -> + case get(current_class) of + "wxLocale" -> %% Special since changed between 2.8 and 3.0 + parse_type2(R,Info,Opts,T#type{name="wxeLocaleC",base=string}); + _ -> + parse_type2(R,Info,Opts,T#type{name=N,base=int,single=false}) + end; +parse_type2([N="wxChar"|R],Info,Opts,T) -> parse_type2(R,Info,Opts,T#type{name=N,base=int}); parse_type2(["wxUint32"|R],Info,Opts,T=#type{mod=Mod}) -> parse_type2(R,Info,Opts,T#type{name=int,base=int,mod=[unsigned|Mod]}); |