summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-01-11 08:40:56 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-01-11 08:40:56 +0000
commit44bf33a127efeb9dff9518edeef72e146d712aae (patch)
tree2ad00e47c1260710c5319440ddbd620ce27f3b99 /perl-install
parent13d2e730bcb5a96b7e134c0fe377926af3f56761 (diff)
downloaddrakx-44bf33a127efeb9dff9518edeef72e146d712aae.tar
drakx-44bf33a127efeb9dff9518edeef72e146d712aae.tar.gz
drakx-44bf33a127efeb9dff9518edeef72e146d712aae.tar.bz2
drakx-44bf33a127efeb9dff9518edeef72e146d712aae.tar.xz
drakx-44bf33a127efeb9dff9518edeef72e146d712aae.zip
don't fake a ugtk2, use pure mygtk2 instead
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_gtk.pm6
1 files changed, 2 insertions, 4 deletions
diff --git a/perl-install/install_gtk.pm b/perl-install/install_gtk.pm
index 5a1aaff29..a1134de91 100644
--- a/perl-install/install_gtk.pm
+++ b/perl-install/install_gtk.pm
@@ -143,14 +143,12 @@ sub create_steps_window {
push @l, gtknew('HBox', spacing => 7, children_tight => [ '', '', $img, translate($o->{steps}{$_}{text}) ]);
}
- my $w = bless {}, 'ugtk2';
my $offset = 20;
- $w->{rwindow} = $w->{window} =
+ $o->{steps_window} =
gtknew('Window', width => ($::stepswidth - $offset), widget_name => 'Steps',
position => [ lang::text_direction_rtl() ? ($::rootwidth - $::stepswidth - $offset) : $offset, 150 ],
child => gtknew('VBox', spacing => 6, children_tight => \@l));
- $w->show;
- $o->{steps_window} = $w;
+ $o->{steps_window}->show;
}
sub update_steps_position {