summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakfloppy2
-rwxr-xr-xperl-install/standalone/drakfont2
-rwxr-xr-xperl-install/standalone/drakperm2
-rwxr-xr-xperl-install/standalone/drakups2
-rw-r--r--perl-install/ugtk3.pm2
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'),