- adduserdrake:

  o added tooltip text to weakness icon

1 files changed, 13 insertions, 0 deletions

diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index 8feea073c..ecdccad69 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -555,6 +555,7 @@ sub create_widget {
 		 require authentication;
 		 my $password_weakness = authentication::compute_password_weakness($w->get_text);
 		 $w->set_icon_from_pixbuf('GTK_ENTRY_ICON_SECONDARY', get_weakness_icon($password_weakness));
+		 $w->set_icon_tooltip_text('GTK_ENTRY_ICON_SECONDARY', get_weakness_tooltip($password_weakness));
 	       }
 	       $w->get_text;
 	      }));
@@ -982,4 +983,16 @@ sub get_weakness_icon {
     $weakness_icon;
 }
 
+sub get_weakness_tooltip {
+    my ($password_weakness) = @_;
+    my %weakness_tooltip = (
+        1 => N("Password is trivial to guess"),
+        2 => N("Password is trivial to guess"),
+        3 => N("Password should resist to basic attacks"),
+        4 => N("Password seems secure"),
+        5 => N("Password seems secure"));
+    my $weakness_tooltip = $weakness_tooltip{$password_weakness} || return undef;
+    return $weakness_tooltip;
+}
+
 1;