diff options
| author | Dan Gudmundsson <[email protected]> | 2016-10-24 13:04:15 +0200 |
|---|---|---|
| committer | Dan Gudmundsson <[email protected]> | 2016-10-24 13:04:15 +0200 |
| commit | 16b6c991cc841ced6be466eca774dba1188f8640 (patch) | |
| tree | 9b2d82c4e7572e45d8962e69b5c07e8d7da82873 /lib/wx/src/gen/gl.erl | |
| parent | f66073c2960a4b072e18c4e1dfed143b94cd60c6 (diff) | |
| parent | e92d0d0c4b6991dc751dcc332e11c05d304175b6 (diff) | |
| download | otp-16b6c991cc841ced6be466eca774dba1188f8640.tar.gz otp-16b6c991cc841ced6be466eca774dba1188f8640.tar.bz2 otp-16b6c991cc841ced6be466eca774dba1188f8640.zip | |
Merge branch 'dgud/wx/scale-factor' into maint
* dgud/wx/scale-factor:
wx: Improve error handling
wx: Add wxWindow:getContentScaleFactor
Diffstat (limited to 'lib/wx/src/gen/gl.erl')
| -rw-r--r-- | lib/wx/src/gen/gl.erl | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/lib/wx/src/gen/gl.erl b/lib/wx/src/gen/gl.erl index e10b99b10a..3780cca651 100644 --- a/lib/wx/src/gen/gl.erl +++ b/lib/wx/src/gen/gl.erl @@ -283,7 +283,7 @@ call(Op, Args) -> Port = get(opengl_port), _ = erlang:port_control(Port,Op,Args), - rec(). + rec(Op). %% @hidden cast(Op, Args) -> @@ -292,11 +292,15 @@ cast(Op, Args) -> ok. %% @hidden -rec() -> - receive +rec(Op) -> + receive {'_egl_result_', Res} -> Res; - {'_egl_error_', Op, Res} -> error({error,Res,Op}) - end. + {'_egl_error_', Op, Res} -> error({error,Res,Op}); + {'_egl_error_', Other, Res} -> + Err = io_lib:format("~p in op: ~p", [Res, Other]), + error_logger:error_report([{gl, error}, {message, lists:flatten(Err)}]), + rec(Op) + end. %% @hidden send_bin(Bin) when is_binary(Bin) -> |