diff options
| author | Olivier Blin <oblin@mandriva.com> | 2009-10-28 17:01:27 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.com> | 2009-10-28 17:01:27 +0000 |
| commit | d99932d51905acb2ffff1f0ba29802a08fb81237 (patch) | |
| tree | ad3f4c0d8fccc1fb44bdc92b036f0bb87d7db63e /perl-install | |
| parent | f3fb118ac213d2e6e3bce3cd580a66298f6254d7 (diff) | |
| download | drakx-d99932d51905acb2ffff1f0ba29802a08fb81237.tar drakx-d99932d51905acb2ffff1f0ba29802a08fb81237.tar.gz drakx-d99932d51905acb2ffff1f0ba29802a08fb81237.tar.bz2 drakx-d99932d51905acb2ffff1f0ba29802a08fb81237.tar.xz drakx-d99932d51905acb2ffff1f0ba29802a08fb81237.zip | |
use ugtk2 magic and separate variable for partition separator
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/fs/partitioning_wizard.pm | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/perl-install/fs/partitioning_wizard.pm b/perl-install/fs/partitioning_wizard.pm index 248bb04ed..926fdfbcd 100644 --- a/perl-install/fs/partitioning_wizard.pm +++ b/perl-install/fs/partitioning_wizard.pm @@ -302,6 +302,7 @@ sub create_display_box { my $vbox = Gtk2::VBox->new; my $ev; + my $part_sep; my $desc; my $last; @@ -394,14 +395,12 @@ sub create_display_box { ugtk2::gtkpack($display_box, $ev); } $ev->add($w); - my $sep = Gtk2::Label->new("."); - $ev = Gtk2::EventBox->new; - $ev->add($sep); - $sep->set_size_request(1, 0); - ugtk2::gtkpack__($display_box, $ev); + $part_sep = gtkadd(Gtk2::EventBox->new, + gtkset_size_request(Gtk2::Label->new("."), 1, 0)); + gtkpack__($display_box, $part_sep); } - $display_box->remove($ev); + $display_box->remove($part_sep); unless($resize || $fill_empty) { my @types = (N_("Ext2/3/4"), N_("XFS"), N_("Swap"), arch() =~ /sparc/ ? N_("SunOS") : arch() eq "ppc" ? N_("HFS") : N_("Windows"), N_("Other"), N_("Empty")); |