From 67d1dc672a5a8440c4471b47e724c571a3d0eca7 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 1 Sep 2008 16:01:25 +0000 Subject: (create_widget) prevent big combo boxes to cause an horizontall scrollbar to appear by using the "ellipsize" property --- perl-install/interactive/gtk.pm | 1 + 1 file changed, 1 insertion(+) (limited to 'perl-install/interactive') diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm index 0cff3dda7..85e503d4b 100644 --- a/perl-install/interactive/gtk.pm +++ b/perl-install/interactive/gtk.pm @@ -492,6 +492,7 @@ sub create_widget { if (!$e->{separator}) { if ($e->{not_edit} && $width < 160) { #- ComboBoxes do not have an horizontal scroll-bar. This can cause havoc for long strings (eg: diskdrake Create dialog box in expert mode) $w = Gtk2::ComboBox->new_text; + ($w->child->get_cell_renderers)[0]->set_property('ellipsize', 'end'); $w->set_wrap_width($e->{gtk}{wrap_width}) if exists $e->{gtk}{wrap_width}; } else { $w = Gtk2::Combo->new; -- cgit v1.2.1