diff options
Diffstat (limited to 'lib/wx/test/wx_event_SUITE.erl')
| -rw-r--r-- | lib/wx/test/wx_event_SUITE.erl | 41 |
1 files changed, 39 insertions, 2 deletions
diff --git a/lib/wx/test/wx_event_SUITE.erl b/lib/wx/test/wx_event_SUITE.erl index bbb5294d08..2711943e5d 100644 --- a/lib/wx/test/wx_event_SUITE.erl +++ b/lib/wx/test/wx_event_SUITE.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 @@ -48,7 +48,7 @@ suite() -> [{ct_hooks,[ts_install_cth]}]. all() -> [connect, disconnect, connect_msg_20, connect_cb_20, mouse_on_grid, spin_event, connect_in_callback, recursive, - char_events, callback_clean + dialog, char_events, callback_clean ]. groups() -> @@ -402,6 +402,43 @@ recursive(Config) -> wx_test_lib:wx_destroy(Frame, Config). +dialog(TestInfo) when is_atom(TestInfo) -> wx_test_lib:tc_info(TestInfo); +dialog(Config) -> + Wx = wx:new(), + Frame = wxFrame:new(Wx, ?wxID_ANY, "Testing"), + wxFrame:show(Frame), + Env = wx:get_env(), + Tester = self(), + spawn_link( + fun() -> + wx:set_env(Env), + PD = wxProgressDialog:new("Dialog","Testing", + [%%{parent, Frame}, + {maximum,10}, + {style, ?wxPD_SMOOTH bor ?wxPD_AUTO_HIDE}]), + wxDialog:connect(PD, init_dialog + , [{callback, fun(#wx{event=#wxInitDialog{}}, Ev) -> + ?mt(wxInitDialogEvent, Ev), + io:format("Heyhoo~n", []), + wxEvent:skip(Ev), + Tester ! {progress_dialog,PD} + end}] + ), + wxProgressDialog:showModal(PD), + wxDialog:destroy(PD) + end), + receive {progress_dialog,PD} -> + wxDialog:endModal(PD, ?wxID_OK) + after 5000 -> + exit(timeout) + end, + + wx_test_lib:flush(), + + wx_test_lib:wx_destroy(Frame, Config). + + + char_events(TestInfo) when is_atom(TestInfo) -> wx_test_lib:tc_info(TestInfo); char_events(Config) -> Wx = wx:new(), |