diff options
| author | Erlang/OTP <[email protected]> | 2010-02-05 16:32:00 +0000 |
|---|---|---|
| committer | Erlang/OTP <[email protected]> | 2010-02-05 16:32:00 +0000 |
| commit | e76fa2fb451a111196128afbc372d3b8b1e3dfad (patch) | |
| tree | e45dc19f5be68d6074035363fae30e207a69bed1 /lib/wx/test/wx_class_SUITE.erl | |
| parent | 2e6ff4b8c161c358cf496b2ebb5f2dbbaa04aabd (diff) | |
| parent | cfd2ba46158ad1ac6798e48150d18c969966a152 (diff) | |
| download | otp-e76fa2fb451a111196128afbc372d3b8b1e3dfad.tar.gz otp-e76fa2fb451a111196128afbc372d3b8b1e3dfad.tar.bz2 otp-e76fa2fb451a111196128afbc372d3b8b1e3dfad.zip | |
Merge branch 'dgud/wx_list_ctrl' into ccase/r13b04_dev
* dgud/wx_list_ctrl:
Generate without trailing spaces
Fix correct starting copyright year
Do not emit trailing whitespace
Added tests for wxListCtrl:getItem/2.
Added wxListCtrl:getEditCtrl (not available on Mac)
OTP-8408 Added wxListCtrl:getEditCtrl/1 (not available on Mac).
Diffstat (limited to 'lib/wx/test/wx_class_SUITE.erl')
| -rw-r--r-- | lib/wx/test/wx_class_SUITE.erl | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/lib/wx/test/wx_class_SUITE.erl b/lib/wx/test/wx_class_SUITE.erl index ddb491be6c..76df6e4a23 100644 --- a/lib/wx/test/wx_class_SUITE.erl +++ b/lib/wx/test/wx_class_SUITE.erl @@ -361,6 +361,14 @@ listCtrlSort(Config) -> Time = timer:tc(erlang, apply, [Sort,[]]), io:format("Sorted ~p ~n",[Time]), + Item = wxListItem:new(), + _List = wx:map(fun(Int) -> + wxListItem:setId(Item, Int), + ?m(true, wxListCtrl:getItem(LC, Item)), + io:format("~s~n",[wxListItem:getText(Item)]) + end, lists:seq(0,100)), + wxListItem:destroy(Item), + wx_test_lib:wx_destroy(Frame,Config). |