summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2013-11-08 03:47:53 +0100
committerThierry Vignaud <thierry.vignaud@gmail.com>2013-11-24 23:28:17 +0100
commit395e1a77a683369614b6fa1ab37f9d33a6cc790b (patch)
tree251f392217370d9a23db5ed98a816e7318933390
parent8726e6dd60ee00abff6cb6a581f749158ca9dc7e (diff)
downloaddrakx-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
-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.pm4
5 files changed, 6 insertions, 6 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;
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);