[Pkg-privacy-commits] [msva-perl] 153/356: a bit more cleanup on the UI

[Ximin Luo]

This is an automated email from the git hooks/post-receive script.

infinity0 pushed a commit to branch debian
in repository msva-perl.

commit e6f6bf48952006111dff0903937ee2cfe411b2ee
Author: Daniel Kahn Gillmor <dkg at fifthhorseman.net>
Date:   Thu Oct 7 00:30:25 2010 -0400

    a bit more cleanup on the UI
---
 Crypt/Monkeysphere/MSVA/MarginalUI.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/Crypt/Monkeysphere/MSVA/MarginalUI.pm b/Crypt/Monkeysphere/MSVA/MarginalUI.pm
index a57a71d..a850038 100755
--- a/Crypt/Monkeysphere/MSVA/MarginalUI.pm
+++ b/Crypt/Monkeysphere/MSVA/MarginalUI.pm
@@ -102,12 +102,12 @@
                                                           $_->{key_id},
                                                          ) } @valid_certifiers);
             my $msg = sprintf("The matching key for [%s] is not %svalid.
-----------
+
 The certificate is certified by:
 
 %s
 
-Would you like to temporarily accept this certification?",
+Would you like to temporarily accept this certificate for this peer?",
                               $uid,
                               ('m' == $keyfpr->{val} ? 'fully ' : ''),
                               $certifier_list,
@@ -188,6 +188,8 @@ GnuPG calculated validity: %s",
     $dialog->set_default_icon_from_file($icon_file)
       if (-r $icon_file);
     $dialog->set_default_response('cancel');
+    # set initial kbd input focus on "No" also:
+    ($dialog->get_action_area()->get_children())[1]->grab_focus();
 
     my $response = $dialog->run();
     if ($response eq 'ok') {

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-privacy/packages/msva-perl.git