summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-08-30 16:25:58 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-08-30 16:25:58 +0000
commit482a0bfc3b23a167c7348a0f2ebcc859bf3c8dcf (patch)
treea867558e731001abb867ef8bca190b53870a0ec3 /perl-install
parentb0c6eeac8d1f131aaba5beb6842e88384d2f1aed (diff)
downloaddrakx-backup-do-not-use-482a0bfc3b23a167c7348a0f2ebcc859bf3c8dcf.tar
drakx-backup-do-not-use-482a0bfc3b23a167c7348a0f2ebcc859bf3c8dcf.tar.gz
drakx-backup-do-not-use-482a0bfc3b23a167c7348a0f2ebcc859bf3c8dcf.tar.bz2
drakx-backup-do-not-use-482a0bfc3b23a167c7348a0f2ebcc859bf3c8dcf.tar.xz
drakx-backup-do-not-use-482a0bfc3b23a167c7348a0f2ebcc859bf3c8dcf.zip
- use noborderWhenEmbedded instead of dirtying directly in WizardTable
- use children_centered to cleanly and correctly size the progress bar
Diffstat (limited to 'perl-install')
-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..."));