From c3bfd51e5d52af523d039f8612be0058b01f9335 Mon Sep 17 00:00:00 2001 From: Angelo Naselli Date: Thu, 8 Jan 2015 16:10:50 +0100 Subject: Added select_fromList, a dialog to get a selection from a list of items --- t/03-Shared_GUI.t | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) (limited to 't/03-Shared_GUI.t') diff --git a/t/03-Shared_GUI.t b/t/03-Shared_GUI.t index 1a781cb4..695a4196 100644 --- a/t/03-Shared_GUI.t +++ b/t/03-Shared_GUI.t @@ -39,6 +39,22 @@ SKIP: { }), 'ask_fromList'); diag "ask_fromList got: < " . ($item ? $item : "none") . " >"; + ok(my $selection = $gui->select_fromList({ + title => "Select from list", + header => { + text_column => "Items", + check_column => "selected", + }, + list => [ + { text => 'item 1', checked => 1}, + { text => 'item 2', }, + { text => 'item 3', checked => 0}, + { text => 'item 4', checked => 1}, + { text => 'item 5',}, + ], + }), 'select_fromList'); + diag "select_fromList got: < " . join(' - ', @${selection}) . " >"; + #TODO cancel makes this test failing ok($item = $gui->ask_fromTreeList({title => "Choose from list", header => "Which one do you select? [default is leaf 2]", default_button => 1, default_item => 'leaf 2', -- cgit v1.2.1