diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-12-23 17:57:03 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-12-23 17:57:03 +0000 |
| commit | 94bec14e16b9f0364018d08beb2fbf3dfc91267d (patch) | |
| tree | 718a25d87d998ed2075518a806e05e6e46c27d5b /perl-install/interactive_gtk.pm | |
| parent | 9c7df16fb5bd54f1b475ada02808e35a404ed1ce (diff) | |
| download | drakx-94bec14e16b9f0364018d08beb2fbf3dfc91267d.tar drakx-94bec14e16b9f0364018d08beb2fbf3dfc91267d.tar.gz drakx-94bec14e16b9f0364018d08beb2fbf3dfc91267d.tar.bz2 drakx-94bec14e16b9f0364018d08beb2fbf3dfc91267d.tar.xz drakx-94bec14e16b9f0364018d08beb2fbf3dfc91267d.zip | |
no_comment
Diffstat (limited to 'perl-install/interactive_gtk.pm')
| -rw-r--r-- | perl-install/interactive_gtk.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm index 0b330bfdd..96f383cd1 100644 --- a/perl-install/interactive_gtk.pm +++ b/perl-install/interactive_gtk.pm @@ -28,12 +28,12 @@ sub ask_from_listW { my $w = my_gtk->new(first(deref($title)), %$o); $w->{retval} = $def || $l->[0]; #- nearly especially for the X test case (see timeout in Xconfigurator.pm) - if (@$l < 5) { #- really ? : && sum(map { length $_ } @$l) < 90) { + if (@$l < 5) { my $defW; my $f = sub { $w->{retval} = $_[1]; Gtk->main_quit }; gtkadd($w->{window}, gtkpack(create_box_with_title($w, @$messages), - gtkadd((@$l < 3 ? create_hbox() : create_vbox()), + gtkadd(@$l < 3 && sum(map { length $_ } @$l) < 60 ? create_hbox() : create_vbox(), map { my $b = new Gtk::Button($_); $b->signal_connect(clicked => [ $f, $_ ]); |