perlish $dialog->action_area => $dialog->get_action_area

4 files changed, 4 insertions, 4 deletions

diff --git a/perl-install/standalone/drakfloppy b/perl-install/standalone/drakfloppy
index 7c4bdd94b..9154d40a3 100755
--- a/perl-install/standalone/drakfloppy
+++ b/perl-install/standalone/drakfloppy
@@ -180,7 +180,7 @@ sub pref_dialog() {
     $remove_but->set_sensitive(scalar @modules);
     @temp_modules = ();
 
-    gtkadd($dialog->action_area,
+    gtkadd($dialog->get_action_area,
            create_okcancel({
                             cancel_clicked => sub { $dialog->destroy },
                             ok_clicked => sub { 
diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont
index 49a871b7c..830baf933 100755
--- a/perl-install/standalone/drakfont
+++ b/perl-install/standalone/drakfont
@@ -614,7 +614,7 @@ sub dialog {
     $dialog->signal_connect(delete_event => \&exitdialog);
     $dialog->set_size_request(@{$o_options->{size}}) if ref $o_options->{size};
     gtkpack_($dialog->get_child, @$widgets);
-    gtkpack($dialog->action_area, @$buttons) if $buttons;
+    gtkpack($dialog->get_action_area, @$buttons) if $buttons;
     $dialog->show_all;
     if ($o_main_loop) {
       gtkflush();
diff --git a/perl-install/standalone/drakperm b/perl-install/standalone/drakperm
index df3602ed3..4e61bae1d 100755
--- a/perl-install/standalone/drakperm
+++ b/perl-install/standalone/drakperm
@@ -362,7 +362,7 @@ sub row_setting_dialog {
 
     $dlg->set_has_separator(0);
 
-    gtkadd($dlg->action_area, 
+    gtkadd($dlg->get_action_area, 
            create_okcancel(my $w =
                            {
                             cancel_clicked => sub { $dlg->destroy },
diff --git a/perl-install/standalone/drakups b/perl-install/standalone/drakups
index 1825caecd..427216069 100755
--- a/perl-install/standalone/drakups
+++ b/perl-install/standalone/drakups
@@ -206,7 +206,7 @@ sub edit_row {
              #}
             );
 
-    gtkadd($dialog->action_area,
+    gtkadd($dialog->get_action_area,
            gtksignal_connect(Gtk3::Button->new(N("Ok")), clicked => sub {
                                  # create new item if needed (that is when adding a new one) at end of list
                                  $iter ||= $model->append;