aboutsummaryrefslogtreecommitdiffstats
path: root/lib/wx/test/wx_class_SUITE.erl
diff options
context:
space:
mode:
authorDan Gudmundsson <[email protected]>2010-11-04 09:10:02 +0100
committerDan Gudmundsson <[email protected]>2010-11-04 09:20:08 +0100
commit5e31685980cd1b2fa344b5c3be866ed74c0e9754 (patch)
tree2558c8a9f9622b99d80c8dff639c76cae04a77e1 /lib/wx/test/wx_class_SUITE.erl
parent78348da9028eca200641a27ed1ce88c9f8dd10d2 (diff)
downloadotp-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/wx_class_SUITE.erl')
-rw-r--r--lib/wx/test/wx_class_SUITE.erl17
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).