summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-10-28 09:41:32 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-10-28 09:41:32 +0000
commitf438f4f5caf143c0c6f263e09c9702b6876b91cf (patch)
treec4195a73c64e7ed42531a8b0ca997d0fec60b544 /perl-install/interactive_gtk.pm
parentb4a722c16e9be060fac6a9e5bb14ee43ea048163 (diff)
downloaddrakx-f438f4f5caf143c0c6f263e09c9702b6876b91cf.tar
drakx-f438f4f5caf143c0c6f263e09c9702b6876b91cf.tar.gz
drakx-f438f4f5caf143c0c6f263e09c9702b6876b91cf.tar.bz2
drakx-f438f4f5caf143c0c6f263e09c9702b6876b91cf.tar.xz
drakx-f438f4f5caf143c0c6f263e09c9702b6876b91cf.zip
no_comment
Diffstat (limited to 'perl-install/interactive_gtk.pm')
-rw-r--r--perl-install/interactive_gtk.pm8
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm
index 49b4313ed..85840438e 100644
--- a/perl-install/interactive_gtk.pm
+++ b/perl-install/interactive_gtk.pm
@@ -57,16 +57,16 @@ sub ask_many_from_list_refW($$$$$) {
my $n = 0;
my $w = my_gtk->new('', %$o);
gtkadd($w->{window},
- gtkpack(create_box_with_title($w, @$messages),
- gtkpack(new Gtk::VBox(0,0),
+ gtkpack_(create_box_with_title($w, @$messages),
+ 1, gtkset_usize(createScrolledWindow(gtkpack(new Gtk::VBox(0,0),
map {
my $nn = $n++;
my $o = Gtk::CheckButton->new($_);
$o->set_active(${$val->[$nn]});
$o->signal_connect(clicked => sub { invbool \${$val->[$nn]} });
$o;
- } @$list),
- $w->create_okcancel,
+ } @$list)), 0, @$list > 11 ? 250 : @$list * 260 / 11 + 10),
+ 0, $w->create_okcancel,
)
);
$w->{ok}->grab_focus;