diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-10-28 09:41:32 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-10-28 09:41:32 +0000 |
| commit | f438f4f5caf143c0c6f263e09c9702b6876b91cf (patch) | |
| tree | c4195a73c64e7ed42531a8b0ca997d0fec60b544 /perl-install/interactive_gtk.pm | |
| parent | b4a722c16e9be060fac6a9e5bb14ee43ea048163 (diff) | |
| download | drakx-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.pm | 8 |
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; |