Gtk2-1.24993/t/GtkComboBox.t

8 my $combo_box;
11 $combo_box = Gtk2::ComboBox->new_text;
12 isa_ok ($combo_box, 'Gtk2::ComboBox');
13 ginterfaces_ok($combo_box);
15 $combo_box->append_text ("some text");
16 $combo_box->append_text ("more text");
17 $combo_box->prepend_text ("more text");
18 $combo_box->prepend_text ("more text");
19 $combo_box->insert_text (1, "even more text");
20 $combo_box->insert_text (5, "even more text");
21 $combo_box->remove_text (0);
22 $combo_box->remove_text (2);
24 $combo_box->set_active (2);
25 is ($combo_box->get_active, 2);
27 my $model = $combo_box->get_model;
30 is ($model->get_path ($combo_box->get_active_iter)->to_string,
31     $combo_box->get_active);
34 $combo_box->set_active_iter ($iter);
35 is ($model->get_path ($combo_box->get_active_iter)->to_string,
38 $combo_box->set_active_iter (undef);
39 is ($combo_box->get_active, -1);
40 is ($combo_box->get_active_iter, undef);
42 $combo_box = Gtk2::ComboBox->new;
43 isa_ok ($combo_box, 'Gtk2::ComboBox');
46 $combo_box->set_model ($model);
48 $combo_box = Gtk2::ComboBox->new ($model);
49 isa_ok ($combo_box, 'Gtk2::ComboBox');
51 $combo_box = Gtk2::ComboBox->new_with_model ($model);
52 isa_ok ($combo_box, 'Gtk2::ComboBox');
57 $combo_box->set_model ($model);
58 is ($combo_box->get_model, $model);
61 is ($combo_box->get_active, -1);
67 $combo_box->set_active (1);
68 is ($combo_box->get_active, 1, 'set and get active');
75 				("".$combo_box->get_active."");
76 	is ($combo_box->get_active_text,
80 	$combo_box->set_add_tearoffs (TRUE);
81 	ok ($combo_box->get_add_tearoffs, 'tearoff accessors');
82 	$combo_box->set_add_tearoffs (FALSE);
83 	ok (!$combo_box->get_add_tearoffs, 'tearoff accessors');
85 	$combo_box->set_focus_on_click (TRUE);
86 	ok ($combo_box->get_focus_on_click, 'focus-on-click accessors');
87 	$combo_box->set_focus_on_click (FALSE);
88 	ok (!$combo_box->get_focus_on_click, 'focus-on-click accessors');
90 	$combo_box->set_row_separator_func (sub {
105 	$combo_box->pack_start ($cell, TRUE);
106 	$combo_box->set_attributes ($cell, text => 0);
108 	$window->add ($combo_box);
109 	$combo_box->show;
112 	$combo_box->popup;
113 	$combo_box->popdown;
115 	$combo_box->set_wrap_width (1);
116 	$combo_box->set_row_span_column (1);
117 	$combo_box->set_column_span_column (1);
119 	is ($combo_box->get_wrap_width, 1);
120 	is ($combo_box->get_row_span_column, 1);
121 	is ($combo_box->get_column_span_column, 1);
124 	$combo_box->set_model (undef);
125 	is ($combo_box->get_model, undef, 'set_model() of undef giving undef');
132 	$combo_box->set_title ("whee");
133 	is ($combo_box->get_title, "whee");
140 	my $combo_box = Gtk2::ComboBox->new;
141 	$combo_box->set_button_sensitivity ('auto');
142 	is ($combo_box->get_button_sensitivity, 'auto');