diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-11-08 03:47:53 +0100 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-11-24 23:28:17 +0100 |
| commit | 395e1a77a683369614b6fa1ab37f9d33a6cc790b (patch) | |
| tree | 251f392217370d9a23db5ed98a816e7318933390 /perl-install/ugtk3.pm | |
| parent | 8726e6dd60ee00abff6cb6a581f749158ca9dc7e (diff) | |
| download | drakx-395e1a77a683369614b6fa1ab37f9d33a6cc790b.tar drakx-395e1a77a683369614b6fa1ab37f9d33a6cc790b.tar.gz drakx-395e1a77a683369614b6fa1ab37f9d33a6cc790b.tar.bz2 drakx-395e1a77a683369614b6fa1ab37f9d33a6cc790b.tar.xz drakx-395e1a77a683369614b6fa1ab37f9d33a6cc790b.zip | |
perlish $dialog->action_area => $dialog->get_action_area
Diffstat (limited to 'perl-install/ugtk3.pm')
| -rw-r--r-- | perl-install/ugtk3.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/ugtk3.pm b/perl-install/ugtk3.pm index 14a2ae337..aa5a30042 100644 --- a/perl-install/ugtk3.pm +++ b/perl-install/ugtk3.pm @@ -412,7 +412,7 @@ sub create_dialog { ); if ($o_options->{cancel}) { - $dialog->action_area->pack_start( + $dialog->get_action_area->pack_start( gtknew('Button', text => N("Cancel"), clicked => sub { $ret = 0; $dialog->destroy; Gtk3->main_quit }, can_default => 1), @@ -421,7 +421,7 @@ sub create_dialog { my $button = gtknew('Button', text => N("Ok"), can_default => 1, clicked => sub { $ret = 1; $dialog->destroy; Gtk3->main_quit }); - $dialog->action_area->pack_start($button, 1, 1, 0); + $dialog->get_action_area->pack_start($button, 1, 1, 0); $button->grab_default; $dialog->set_has_separator(0); |