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 | |
| 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')
| -rwxr-xr-x | perl-install/standalone/drakfloppy | 2 | ||||
| -rwxr-xr-x | perl-install/standalone/drakfont | 2 | ||||
| -rwxr-xr-x | perl-install/standalone/drakperm | 2 | ||||
| -rwxr-xr-x | perl-install/standalone/drakups | 2 | ||||
| -rw-r--r-- | perl-install/ugtk3.pm | 4 |
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); |