From: Daniel Kahn Gillmor <dkg@fifthhorseman.net>
Date: Thu, 7 Oct 2010 04:30:25 +0000 (-0400)
Subject: a bit more cleanup on the UI
X-Git-Tag: msva-perl/0.4~1
X-Git-Url: http://git.tremily.us/?a=commitdiff_plain;h=e6f6bf48952006111dff0903937ee2cfe411b2ee;p=monkeysphere-validation-agent.git

a bit more cleanup on the UI
---

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') {