diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/fs/partitioning_wizard.pm | 31 | ||||
| -rw-r--r-- | perl-install/install/NEWS | 1 |
2 files changed, 19 insertions, 13 deletions
diff --git a/perl-install/fs/partitioning_wizard.pm b/perl-install/fs/partitioning_wizard.pm index 5c1e81b36..aac79dd40 100644 --- a/perl-install/fs/partitioning_wizard.pm +++ b/perl-install/fs/partitioning_wizard.pm @@ -276,7 +276,7 @@ sub warn_reboot_needed { } sub create_display_box { - my ($kind, $resize, $fill_empty) = @_; + my ($kind, $resize, $fill_empty, $button) = @_; my @parts = fs::get::hds_fstab_and_holes($kind->{val}); my $totalsectors = $kind->{val}->{totalsectors}; @@ -347,11 +347,17 @@ sub create_display_box { $hpane->signal_connect('size-allocate' => sub { my (undef, $alloc) = @_; $part->{width} = $alloc->width; + 0; }); $hpane->signal_connect('motion-notify-event' => sub { $part->{req_size} = int($hpane->get_position * $part->{size} / $part->{width}); $win_size_label->set_label(sprintf("%10s", formatXiB( $part->{req_size}, 512))); $mdv_size_label->set_label(sprintf("%10s", formatXiB($part->{size}- $part->{req_size}, 512))); + 1; + }); + $hpane->signal_connect('button-press-event' => sub { + $button->activate; + 0; }); } else { if($fill_empty && isEmpty($entry)) { @@ -404,14 +410,16 @@ sub display_choices { alignment=> [0, 0])); my $choicesbox = ugtk2::gtknew('VBox'); - my $button; + my $oldbutton; my $sep; foreach my $s (@solutions) { my $item; + my $vbox = ugtk2::gtknew('VBox'); + my $button = ugtk2::gtknew('RadioButton', child => $vbox); if($s eq 'free_space') { $item = create_display_box($mainw->{kind}, undef, 1); } elsif($s eq 'resize_fat') { - $item = create_display_box($mainw->{kind}, $solutions{$s}->[3]); + $item = create_display_box($mainw->{kind}, $solutions{$s}->[3], undef, $button); } elsif($s eq 'existing_part') { } elsif($s eq 'wipe_drive') { $item = Gtk2::EventBox->new(); @@ -424,16 +432,13 @@ sub display_choices { log::l("$s"); next; } - $button = ugtk2::gtknew('RadioButton', - child => ugtk2::gtknew('VBox', - children_tight => [ - ugtk2::gtknew('Label', - text => $solutions{$s}->[1], - alignment=> [0, 0]), - if_(defined($item), $item) - ], - ), - $button?(group=>$button->get_group):()); + ugtk2::gtkpack2__($vbox, + ugtk2::gtknew('Label', + text => $solutions{$s}->[1], + alignment=> [0, 0])); + ugtk2::gtkpack2__($vbox, $item) if defined($item); + $button->set_group($oldbutton->get_group) if $oldbutton; + $oldbutton = $button; $button->signal_connect('pressed', sub {$mainw->{sol} = $solutions{$s}; }); ugtk2::gtkpack2__($choicesbox, $button); $sep = ugtk2::gtknew('HSeparator'); diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS index b05058ea2..0e0761b9b 100644 --- a/perl-install/install/NEWS +++ b/perl-install/install/NEWS @@ -3,6 +3,7 @@ o add separator between solutions o give more space between header and solutions o prevent cursor to go under needed size because of rounding + o chose windows resizing when clicking on the resize handle (not perfect) Version 12.60.1 - 7 October 2009 |