diff options
| author | Dan Gudmundsson <[email protected]> | 2015-04-16 12:22:54 +0200 |
|---|---|---|
| committer | Dan Gudmundsson <[email protected]> | 2015-05-05 09:36:15 +0200 |
| commit | ac3d37b9520d063d9e1a7e7b54bed4a3ab6c091c (patch) | |
| tree | b3bc347924970f9a9c98cfa5aee397cf2ab5ca6e /lib/wx/test/wx_class_SUITE.erl | |
| parent | 676500a8042165ae3391275fb638471a5a05b25f (diff) | |
| download | otp-ac3d37b9520d063d9e1a7e7b54bed4a3ab6c091c.tar.gz otp-ac3d37b9520d063d9e1a7e7b54bed4a3ab6c091c.tar.bz2 otp-ac3d37b9520d063d9e1a7e7b54bed4a3ab6c091c.zip | |
wx: Add missing data in events
Some events where missing useful information.
May require user code recompilation, since some records in wx.hrl
have chnaged it's definition.
Diffstat (limited to 'lib/wx/test/wx_class_SUITE.erl')
| -rw-r--r-- | lib/wx/test/wx_class_SUITE.erl | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/lib/wx/test/wx_class_SUITE.erl b/lib/wx/test/wx_class_SUITE.erl index b127e6b71d..45ab0f3a32 100644 --- a/lib/wx/test/wx_class_SUITE.erl +++ b/lib/wx/test/wx_class_SUITE.erl @@ -231,8 +231,15 @@ staticBoxSizer(Config) -> clipboard(TestInfo) when is_atom(TestInfo) -> wx_test_lib:tc_info(TestInfo); -clipboard(_Config) -> - wx:new(), +clipboard(Config) -> + Wx = wx:new(), + Frame = wxFrame:new(Wx, ?wxID_ANY, "Main Frame"), + Ctrl = wxTextCtrl:new(Frame, ?wxID_ANY, [{size, {600,400}}, {style, ?wxTE_MULTILINE}]), + wxTextCtrl:connect(Ctrl, command_text_copy, [{skip, true}]), + wxTextCtrl:connect(Ctrl, command_text_cut, [{skip, true}]), + wxTextCtrl:connect(Ctrl, command_text_paste, [{skip, true}]), + wxWindow:show(Frame), + CB = ?mt(wxClipboard, wxClipboard:get()), wxClipboard:usePrimarySelection(CB), ?m(false, wx:is_null(CB)), @@ -271,7 +278,8 @@ clipboard(_Config) -> ?log("Flushing ~n",[]), wxClipboard:flush(CB), ?log("Stopping ~n",[]), - ok. + wx_test_lib:wx_destroy(Frame,Config). + helpFrame(TestInfo) when is_atom(TestInfo) -> wx_test_lib:tc_info(TestInfo); helpFrame(Config) -> |