diff options
| author | Dan Gudmundsson <[email protected]> | 2010-11-04 09:10:02 +0100 |
|---|---|---|
| committer | Dan Gudmundsson <[email protected]> | 2010-11-04 09:20:08 +0100 |
| commit | 5e31685980cd1b2fa344b5c3be866ed74c0e9754 (patch) | |
| tree | 2558c8a9f9622b99d80c8dff639c76cae04a77e1 /lib/wx/test | |
| parent | 78348da9028eca200641a27ed1ce88c9f8dd10d2 (diff) | |
| download | otp-5e31685980cd1b2fa344b5c3be866ed74c0e9754.tar.gz otp-5e31685980cd1b2fa344b5c3be866ed74c0e9754.tar.bz2 otp-5e31685980cd1b2fa344b5c3be866ed74c0e9754.zip | |
Add wxSystemSettings
Sigh, forgot to commit the erlang module in the previous release.
Diffstat (limited to 'lib/wx/test')
| -rw-r--r-- | lib/wx/test/wx_class_SUITE.erl | 17 |
1 files changed, 16 insertions, 1 deletions
diff --git a/lib/wx/test/wx_class_SUITE.erl b/lib/wx/test/wx_class_SUITE.erl index 6f43247d74..7b8d510d40 100644 --- a/lib/wx/test/wx_class_SUITE.erl +++ b/lib/wx/test/wx_class_SUITE.erl @@ -58,7 +58,8 @@ all(suite) -> helpFrame, htmlWindow, listCtrlSort, - radioBox + radioBox, + systemSettings ]. %% The test cases @@ -392,3 +393,17 @@ radioBox(Config) -> wxWindow:show(Frame), wx_test_lib:wx_destroy(Frame,Config). + + +systemSettings(TestInfo) when is_atom(TestInfo) -> wx_test_lib:tc_info(TestInfo); +systemSettings(Config) -> + Wx = wx:new(), + Frame = wxFrame:new(Wx, ?wxID_ANY, "Frame"), + + ?m({_,_,_,_}, wxSystemSettings:getColour(?wxSYS_COLOUR_DESKTOP)), + ?mt(wxFont, wxSystemSettings:getFont(?wxSYS_SYSTEM_FONT)), + ?m(true, is_integer(wxSystemSettings:getMetric(?wxSYS_MOUSE_BUTTONS))), + ?m(true, is_integer(wxSystemSettings:getScreenType())), + + wxWindow:show(Frame), + wx_test_lib:wx_destroy(Frame,Config). |