summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/install_steps_gtk.pm8
1 files changed, 5 insertions, 3 deletions
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index b3d042469..37062369e 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -427,6 +427,7 @@ sub installPackages {
my ($current_total_size, $last_size, $nb, $total_size, $start_time, $last_dtime, $_trans_progress_total);
+ local $::noborderWhenEmbedded = 1;
my $w = ugtk2->new(N("Installing"));
$w->sync;
my $text = gtknew('Label');
@@ -436,7 +437,7 @@ sub installPackages {
my ($msg, $msg_time_remaining) = map { gtknew('Label', text => $_) } '', N("Estimating");
my ($progress, $progress_total) = map { Gtk2::ProgressBar->new } (1..2);
- ugtk2::gtkadd($::WizardTable, my $box = gtknew('VBox', spacing => 10));
+ ugtk2::gtkadd($w->{window}, my $box = gtknew('VBox'));
my $advertize = sub {
my ($update) = @_;
@@ -490,15 +491,16 @@ sub installPackages {
$advertize->('update');
});
- $box->pack_end(gtkshow(gtknew('VBox', spacing => 5, children_loose => [
+ $box->pack_end(gtkshow(gtknew('VBox', border_width => 5, spacing => 3, children_loose => [
$msg, $progress,
gtknew('Table', children => [ [ N("Time remaining "), $msg_time_remaining ] ]),
$text,
gtknew('HBox', children => [
- 1, gtknew('VBox', children => [ 1, '', 0, gtkset_size_request($progress_total, -1, 25), 1, '' ]),
+ 1, gtknew('VBox', children_centered => [ gtkset_size_request($progress_total, -1, 25) ]),
0, gtknew('HButtonBox', children_loose => [ $cancel, $details ]),
]),
])), 0, 1, 0);
+
$details->hide if !@install_any::advertising_images;
$w->sync;
gtkset($msg, text => N("Please wait, preparing installation..."));