diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2008-08-13 09:08:20 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2008-08-13 09:08:20 +0000 |
| commit | cbab27f90328f79b32af16277944d5ec92e987a3 (patch) | |
| tree | 48b2d5e73cb50141f94f45eccecd65650e871dc7 /perl-install/diskdrake/hd_gtk.pm | |
| parent | 989e16ba8089097bb38c8b4a3fdc8a3da4117c07 (diff) | |
| download | drakx-cbab27f90328f79b32af16277944d5ec92e987a3.tar drakx-cbab27f90328f79b32af16277944d5ec92e987a3.tar.gz drakx-cbab27f90328f79b32af16277944d5ec92e987a3.tar.bz2 drakx-cbab27f90328f79b32af16277944d5ec92e987a3.tar.xz drakx-cbab27f90328f79b32af16277944d5ec92e987a3.zip | |
(add_kind2notebook) move action button box to right
Diffstat (limited to 'perl-install/diskdrake/hd_gtk.pm')
| -rw-r--r-- | perl-install/diskdrake/hd_gtk.pm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/perl-install/diskdrake/hd_gtk.pm b/perl-install/diskdrake/hd_gtk.pm index d53b15030..ce3e0b5bf 100644 --- a/perl-install/diskdrake/hd_gtk.pm +++ b/perl-install/diskdrake/hd_gtk.pm @@ -132,13 +132,16 @@ sub add_kind2notebook { $kind->{display_box} = gtkset_size_request(Gtk2::HBox->new(0,0), $width, $height); $kind->{action_box} = gtkset_size_request(Gtk2::VBox->new(0,0), $::isStandalone ? 165 : 150, $::isEmbedded ? 150 : 180); $kind->{info_box} = Gtk2::VBox->new(0,0); - $kind->{main_box} = + my $box = gtkpack_(Gtk2::VBox->new(0,7), 0, $kind->{display_box}, 0, filesystems_button_box(), 1, gtkpack_(Gtk2::HBox->new(0,7), - 0, $kind->{action_box}, 1, $kind->{info_box})); + $kind->{main_box} = gtknew('HBox', children => [ + 1, $box, + 0, $kind->{action_box}, + ]); ugtk2::add2notebook($notebook_widget, $kind->{name}, $kind->{main_box}); push @notebook, $kind; $kind; |