diff options
| author | Dan Gudmundsson <[email protected]> | 2018-04-19 12:17:08 +0200 |
|---|---|---|
| committer | Dan Gudmundsson <[email protected]> | 2018-04-19 12:17:08 +0200 |
| commit | 060d1982d93b83c142e594a88433c4cf80032533 (patch) | |
| tree | 4cddc1856615a696a08ca855faf0e62c3f8963f9 /lib/wx/api_gen/wx_gen_erl.erl | |
| parent | 48a4d8196f024015c111d6b7690230d66a6882cf (diff) | |
| parent | cb7a9a70e9c04b972906013fd44dac86ec0b442e (diff) | |
| download | otp-060d1982d93b83c142e594a88433c4cf80032533.tar.gz otp-060d1982d93b83c142e594a88433c4cf80032533.tar.bz2 otp-060d1982d93b83c142e594a88433c4cf80032533.zip | |
Merge branch 'dgud/wx/glcanvas-improvements'
* dgud/wx/glcanvas-improvements:
Add new "constants" to wxGLCanvas
Diffstat (limited to 'lib/wx/api_gen/wx_gen_erl.erl')
| -rw-r--r-- | lib/wx/api_gen/wx_gen_erl.erl | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lib/wx/api_gen/wx_gen_erl.erl b/lib/wx/api_gen/wx_gen_erl.erl index e272c08d90..dfee7270b4 100644 --- a/lib/wx/api_gen/wx_gen_erl.erl +++ b/lib/wx/api_gen/wx_gen_erl.erl @@ -1106,7 +1106,7 @@ gen_enums_ints() -> w("-define(wxDefaultSize, {-1,-1}).~n", []), w("-define(wxDefaultPosition, {-1,-1}).~n", []), w("~n%% Global Variables~n", []), - [w("-define(~s, wxe_util:get_const(~s)).~n", [Gvar, Gvar]) || + [w("-define(~s, wxe_util:get_const(~s)).~n", [qoute_atom(Gvar), qoute_atom(Gvar)]) || {Gvar,_,_Id} <- get(gvars)], w("~n%% Enum and defines~n", []), foldl(fun(Enum= #enum{vals=Vals}, Done) when Vals =/= [] -> @@ -1115,6 +1115,11 @@ gen_enums_ints() -> end, gb_sets:empty(), lists:sort(Enums)), close(). +qoute_atom([Char|_]=Str) when Char < $a -> + "'" ++ Str ++ "'"; +qoute_atom(Str) -> + Str. + build_enum_ints(#enum{from=From, vals=Vals},Done) -> case From of {File, undefined, [$@|_]} -> |