This is an automated email from the git hooks/post-receive script. nodens-guest pushed a commit to branch master in repository openpgp-applet.
commit 70ca264850245f02bdd0c6244bf4913abe24e300 Author: Clément Hermann (nodens) <[email protected]> Date: Fri Aug 21 12:16:09 2015 +0200 change syntax for class-static methods calls --- bin/openpgp-applet | 49 ++++++++++++++++++++++++------------------------- 1 file changed, 24 insertions(+), 25 deletions(-) diff --git a/bin/openpgp-applet b/bin/openpgp-applet index 90267dd..fa8660b 100755 --- a/bin/openpgp-applet +++ b/bin/openpgp-applet @@ -94,7 +94,7 @@ use constant COMBO_ROLE => 3; my $gnupg = Crypt::OpenPGP_Applet::GnuPG::Interface->new(); my $codeset = langinfo(CODESET()); my $encoding = find_encoding($codeset); -my $main_window = Gtk3::Window->new(); +my $main_window = Gtk3::Window::new(); my $icon_factory = Gtk3::IconFactory->new(); # Set always_trust since GnuPG otherwise will fail if the key's # trust hasn't been set. @@ -140,7 +140,6 @@ sub all_clipboards { { my $freshest_clipboard; - sub init_freshest_clipboard { $freshest_clipboard = Gtk3::Clipboard::get(Gtk3::Gdk::Atom::intern('CLIPBOARD', Glib::FALSE)); } @@ -156,7 +155,7 @@ sub all_clipboards { sub app_exit { my $parent = shift; - my $dialog = Gtk3::MessageDialog->new($parent, [qw/modal destroy-with-parent/], + my $dialog = Gtk3::MessageDialog::new($parent, [qw/modal destroy-with-parent/], 'warning', 'yes-no', $encoding->decode(__("You are about to exit OpenPGP Applet. Are you sure?"))); @@ -407,7 +406,7 @@ sub create_key_row { sub make_pub_key_list { my $pub_keys_ref = shift; - my $list = Gtk3::SimpleList->new ( + my $list = Gtk3::SimpleList::new ( "" => 'bool', # C_SELECT $encoding->decode(__("Name")) => 'text', # C_NAME $encoding->decode(__("Key ID")) => 'text', # C_KEYID @@ -471,7 +470,7 @@ sub make_pub_key_list { sub make_priv_key_combo { my $priv_keys_ref = shift; - my $list_store = Gtk3::ListStore->new( + my $list_store = Gtk3::ListStore::new( qw/Glib::String Glib::String Glib::String Glib::String/); my $iter = $list_store->append; $list_store->set ($iter, @@ -496,7 +495,7 @@ sub make_priv_key_combo { COMBO_ROLE, ""); } - my $sorted_list = Gtk3::TreeModelSort->new_with_model($list_store); + my $sorted_list = Gtk3::TreeModelSort::new_with_model($list_store); $sorted_list->set_default_sort_func(sub { my ($model, $iter1, $iter2, $data) = @_; my $name1 = $model->get($iter1, COMBO_NAME); @@ -517,11 +516,11 @@ sub make_priv_key_combo { } }); - my $combo = Gtk3::ComboBox->new_with_model($sorted_list); - my $renderer = Gtk3::CellRendererText->new(); + my $combo = Gtk3::ComboBox::new_with_model($sorted_list); + my $renderer = Gtk3::CellRendererText::new(); $combo->pack_start($renderer, FALSE); $combo->add_attribute($renderer, 'text', COMBO_NAME); - $renderer = Gtk3::CellRendererText->new(); + $renderer = Gtk3::CellRendererText::new(); $combo->pack_start($renderer, FALSE); $combo->add_attribute($renderer, 'text', COMBO_KEYID); $combo->set_row_separator_func( sub { @@ -537,15 +536,15 @@ sub choose_keys { my $priv_keys_ref = shift; my $pub_keys_ref = shift; - my $pub_key_label = Gtk3::Label->new( + my $pub_key_label = Gtk3::Label::new( $encoding->decode(__("Select recipients:"))); my $pub_key_list = make_pub_key_list($pub_keys_ref); - my $pub_key_list_scroll = Gtk3::ScrolledWindow->new; + my $pub_key_list_scroll = Gtk3::ScrolledWindow::new; $pub_key_list_scroll->set_policy('automatic', 'always'); $pub_key_list_scroll->add($pub_key_list); - my $hide_recipients_checkbox = Gtk3::CheckButton->new( + my $hide_recipients_checkbox = Gtk3::CheckButton::new( $encoding->decode(__("Hide recipients"))); $hide_recipients_checkbox->set_has_tooltip(TRUE); $hide_recipients_checkbox->set_tooltip_text( @@ -554,12 +553,12 @@ sub choose_keys { "that sees the encrypted message can see " . "who the recipients are."))); - my $priv_key_label = Gtk3::Label->new( + my $priv_key_label = Gtk3::Label::new( $encoding->decode(__("Sign message as:"))); my $priv_key_combo = make_priv_key_combo($priv_keys_ref); - my $dialog = Gtk3::Dialog->new($encoding->decode(__("Choose keys")), + my $dialog = Gtk3::Dialog::new($encoding->decode(__("Choose keys")), $main_window, 'destroy-with-parent', 'gtk-cancel' => 'cancel', 'gtk-ok' => 'ok' ); $dialog->set_default_size(650,500); @@ -567,7 +566,7 @@ sub choose_keys { my $vbox = $dialog->get_content_area; $vbox->pack_start($pub_key_label, FALSE, FALSE, 5); $vbox->pack_start($pub_key_list_scroll, TRUE, TRUE, 0); - my $hbox = Gtk3::HBox->new; + my $hbox = Gtk3::HBox::new; $hbox->pack_start($priv_key_label, FALSE, FALSE, 0); $hbox->pack_start($priv_key_combo, TRUE, TRUE, 0); $vbox->pack_start($hbox, FALSE, FALSE, 5); @@ -828,7 +827,7 @@ sub display_error { my $title = shift; my $msg = shift; - my $dialog = Gtk3::MessageDialog->new( + my $dialog = Gtk3::MessageDialog::new( $parent, 'destroy-with-parent', 'error', 'ok', $title ); @@ -848,7 +847,7 @@ sub display_question { my $title = shift; my $msg = shift; - my $dialog = Gtk3::MessageDialog->new( + my $dialog = Gtk3::MessageDialog::new( $parent, 'destroy-with-parent', 'question', 'yes-no', $title); $dialog->format_secondary_text($msg); $dialog->set_position('center'); @@ -862,7 +861,7 @@ sub display_output { my $std_out = shift; my $std_err = shift; - my $dialog = Gtk3::MessageDialog->new( + my $dialog = Gtk3::MessageDialog::new( $main_window, 'destroy-with-parent', 'info', 'ok', $encoding->decode(__("GnuPG results")) ); @@ -875,24 +874,24 @@ sub display_output { my $msg_area = $dialog->get_content_area; - my $outbuf = Gtk3::TextBuffer->new(); + my $outbuf = Gtk3::TextBuffer::new(); $outbuf->set_text($std_out); my $text_desc = Pango::FontDescription->new; $text_desc->set_family('Monospace'); - my $textview_out = Gtk3::TextView->new_with_buffer($outbuf); + my $textview_out = Gtk3::TextView::new_with_buffer($outbuf); $textview_out->set_editable(FALSE); $textview_out->set_cursor_visible(FALSE); $textview_out->set_left_margin(10); $textview_out->set_right_margin(10); $textview_out->set_wrap_mode('word'); $textview_out->modify_font($text_desc); - my $scrolled_win_out = Gtk3::ScrolledWindow->new; + my $scrolled_win_out = Gtk3::ScrolledWindow::new; $scrolled_win_out->set_policy('automatic', 'automatic'); $scrolled_win_out->add($textview_out); $msg_area->pack_start($scrolled_win_out, TRUE, TRUE, 0); if (defined $std_err && length($std_err)) { - my $std_err_title = Gtk3::Label->new( + my $std_err_title = Gtk3::Label::new( # TRANSLATORS: GnuPG stderr (other informational messages) $encoding->decode( __("Other messages provided by GnuPG:") @@ -900,16 +899,16 @@ sub display_output { $std_err_title->set_alignment(0, 0); $std_err_title->set_padding(10, 0); $msg_area->pack_start($std_err_title, FALSE, FALSE, 0); - my $std_err_buf = Gtk3::TextBuffer->new(); + my $std_err_buf = Gtk3::TextBuffer::new(); $std_err_buf->set_text($std_err); - my $textview_err = Gtk3::TextView->new_with_buffer($std_err_buf); + my $textview_err = Gtk3::TextView::new_with_buffer($std_err_buf); $textview_err->set_editable(FALSE); $textview_err->set_cursor_visible(FALSE); $textview_err->set_left_margin(10); $textview_err->set_right_margin(10); $textview_err->set_wrap_mode('word'); $textview_err->modify_font($text_desc); - my $scrolled_win_err = Gtk3::ScrolledWindow->new; + my $scrolled_win_err = Gtk3::ScrolledWindow::new; $scrolled_win_err->set_policy('automatic', 'automatic'); $scrolled_win_err->add($textview_err); $scrolled_win_err->set_size_request(-1, $my_height_request/5); -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/openpgp-applet.git _______________________________________________ Pkg-perl-cvs-commits mailing list [email protected] http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits
