perlish action_area() => get_action_area()

1 files changed, 8 insertions, 8 deletions

diff --git a/userdrake b/userdrake
index b9eae6e..8a48e0e 100755
--- a/userdrake
+++ b/userdrake
@@ -398,7 +398,7 @@ sub AddUser() {
 		    0, Gtk3::HSeparator->new,
                     0, GetFaceIcon()
     );
-    gtkadd($w->action_area,
+    gtkadd($w->get_action_area,
            map {
                my $r = $_->[1];
                gtksignal_connect(
@@ -515,7 +515,7 @@ sub ChooseGroup() {
            Gtk3::Label->new(N("A group with this name already exists.  What would you like to do?")),
            gtkpack(Gtk3::VBox->new(0,0), @radio),
        );
-    gtkadd($w->action_area,
+    gtkadd($w->get_action_area,
            gtksignal_connect(
                Gtk3::Button->new(N("Ok")), 
                clicked => sub {
@@ -550,7 +550,7 @@ sub AddGroup() {
 		    0, $us->{o}{groupid} = Gtk3::CheckButton->new(N("Specify group ID manually")),
 		    0, gtkset_sensitive(my $h = Gtk3::HBox->new(0, 4), 0),
              );
-    gtkadd($w->action_area,
+    gtkadd($w->get_action_area,
            map {
                my $r = $_->[1];
                gtksignal_connect(
@@ -641,7 +641,7 @@ sub UserDelete() {
              0, $checkspool = Gtk3::CheckButton->new(N("Delete Mailbox: /var/spool/mail/%s",
                                                        $username)),
          );
-    gtkadd($w->action_area,
+    gtkadd($w->get_action_area,
            map {
                my $r = $_->[1];
                gtksignal_connect(Gtk3::Button->new($_->[0]), clicked =>
@@ -682,7 +682,7 @@ sub GroupDelete() {
     gtkadd($wg->vbox,
            Gtk3::Label->new(N("Do you really want to delete the group %s?", $groupname)),
        );
-    gtkadd($wg->action_area,
+    gtkadd($wg->get_action_area,
            map {
                my $r = $_->[1];
                gtksignal_connect(Gtk3::Button->new($_->[0]), clicked =>
@@ -1146,7 +1146,7 @@ sub Edit() {
     }
     gtkpack_($w->vbox, 
              1, !$p ? $nbU : $nbG);
-    gtkadd($w->action_area,
+    gtkadd($w->get_action_area,
            map {
                my $retv = $_->[1];
                gtksignal_connect(
@@ -1263,7 +1263,7 @@ sub NewDialog {
     my $dialog = gtkset_border_width(
         _create_dialog($title, { transient_for => $us->{wnd}{real_window} }),
         5);
-    $dialog->action_area->pack_start(
+    $dialog->get_action_area->pack_start(
         gtksignal_connect(Gtk3::Button->new(N("Close")), clicked => sub { $dialog->destroy }),
         0,0,0);
     $dialog;
@@ -1313,7 +1313,7 @@ sub RaiseError {
     my $w = NewWindow(N("Error"));
     $error = 1;
     gtkpack($w->vbox, Gtk3::Label->new($_[0]));
-    gtkadd($w->action_area,
+    gtkadd($w->get_action_area,
            gtksignal_connect(Gtk3::Button->new(N("Ok")),
                              clicked => sub { $w->destroy })
 	  );