diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-11-08 03:42:45 +0100 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-11-24 23:28:16 +0100 |
| commit | a7f8805575a700e5ca8dfc962e8049eff33b71b4 (patch) | |
| tree | 6bf766718203362239ad495a4bebed70cb746fd1 | |
| parent | a45c4e4ca33cc642f3dfac9d9b6652a0cb40485f (diff) | |
| download | drakx-a7f8805575a700e5ca8dfc962e8049eff33b71b4.tar drakx-a7f8805575a700e5ca8dfc962e8049eff33b71b4.tar.gz drakx-a7f8805575a700e5ca8dfc962e8049eff33b71b4.tar.bz2 drakx-a7f8805575a700e5ca8dfc962e8049eff33b71b4.tar.xz drakx-a7f8805575a700e5ca8dfc962e8049eff33b71b4.zip | |
perlish $dialog->vbox => $dialog->get_child
| -rwxr-xr-x | perl-install/standalone/drakfloppy | 2 | ||||
| -rwxr-xr-x | perl-install/standalone/drakfont | 2 | ||||
| -rwxr-xr-x | perl-install/standalone/drakperm | 2 | ||||
| -rwxr-xr-x | perl-install/standalone/drakups | 2 | ||||
| -rw-r--r-- | perl-install/ugtk3.pm | 2 |
5 files changed, 5 insertions, 5 deletions
diff --git a/perl-install/standalone/drakfloppy b/perl-install/standalone/drakfloppy index ec0542f14..7c4bdd94b 100755 --- a/perl-install/standalone/drakfloppy +++ b/perl-install/standalone/drakfloppy @@ -135,7 +135,7 @@ sub pref_dialog() { $col->set_min_width((200, 50)[$::i]); } (N("Module name"), N("Size")); - gtkpack_($dialog->vbox, + gtkpack_($dialog->get_child, 0, gtknew('Frame', text => N("Mkinitrd optional arguments"), child => gtknew('VBox', spacing => 5, children_tight => [ $buttons{force} = gtknew('CheckButton', text => N("force")), diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont index d5d6b3cf8..f52f2a538 100755 --- a/perl-install/standalone/drakfont +++ b/perl-install/standalone/drakfont @@ -613,7 +613,7 @@ sub dialog { local $::main_window = $dialog; $dialog->signal_connect(delete_event => \&exitdialog); $dialog->set_size_request(@{$o_options->{size}}) if ref $o_options->{size}; - gtkpack_($dialog->vbox, @$widgets); + gtkpack_($dialog->get_child, @$widgets); gtkpack($dialog->action_area, @$buttons) if $buttons; $dialog->show_all; if ($o_main_loop) { diff --git a/perl-install/standalone/drakperm b/perl-install/standalone/drakperm index 225fe19f1..df3602ed3 100755 --- a/perl-install/standalone/drakperm +++ b/perl-install/standalone/drakperm @@ -314,7 +314,7 @@ sub row_setting_dialog { }); my %perms; - gtkpack_($dlg->vbox, + gtkpack_($dlg->get_child, 0, gtknew('Title2', label => N("Path")), 0, gtknew('HBox', border_width => 18, children => [ 1, $file, diff --git a/perl-install/standalone/drakups b/perl-install/standalone/drakups index 61f0a66a7..1825caecd 100755 --- a/perl-install/standalone/drakups +++ b/perl-install/standalone/drakups @@ -201,7 +201,7 @@ sub edit_row { $dialog->set_transient_for($w->{real_window}); $dialog->set_modal(1); - gtkpack_($dialog->vbox, + gtkpack_($dialog->get_child, #map { #} ); diff --git a/perl-install/ugtk3.pm b/perl-install/ugtk3.pm index 675c774db..14a2ae337 100644 --- a/perl-install/ugtk3.pm +++ b/perl-install/ugtk3.pm @@ -401,7 +401,7 @@ sub create_dialog { my $dialog = gtkset_border_width(_create_dialog($title, $o_options), 10); $dialog->set_border_width(10); my $text = ref($label) ? $label : $o_options->{use_markup} ? gtknew('WrappedLabel', text_markup => $label) : gtknew('WrappedLabel', text => $label); - gtkpack($dialog->vbox, + gtkpack($dialog->get_child, gtknew('HBox', children => [ if_($o_options->{stock}, 0, Gtk3::Image->new_from_stock($o_options->{stock}, 'dialog'), |