diff options
-rwxr-xr-x | userdrake | 22 |
1 files changed, 11 insertions, 11 deletions
@@ -260,7 +260,7 @@ sub Refresh { sub GetFaceIcon { my ($user) = @_; - my @icones = any::facesnames(); + my @icons = any::facesnames(); my $i; my $current_icon; my $user_icon = "$::prefix/usr/share/faces/$user.png"; @@ -279,17 +279,17 @@ sub GetFaceIcon { }; if (-e $user_icon) { my $current_md5 = common::md5file($user_icon); - eval { $i = find_index { common::md5file(any::face2png($_)) eq $current_md5 } @icones }; - if (!$@) { #- current icon found in @icones, select it - $current_icon = $icones[$i]; - } else { #- add and select current icon in @icones - push @icones, $user_icon; + eval { $i = find_index { common::md5file(any::face2png($_)) eq $current_md5 } @icons }; + if (!$@) { #- current icon found in @icons, select it + $current_icon = $icons[$i]; + } else { #- add and select current icon in @icons + push @icons, $user_icon; $current_icon = $user_icon; - $i = @icones - 1; + $i = @icons - 1; } } else { #- no icon yet, select a random one - $current_icon = $icones[$i = rand(@icones)]; + $current_icon = $icons[$i = rand(@icons)]; } $set->($current_icon); my $leave = 0; @@ -298,11 +298,11 @@ sub GetFaceIcon { $bt->signal_connect(button_release_event => sub { return if $leave; if ($_[1]->button == 1) { - $i = defined $icones[$i+1] ? $i+1 : 0; + $i = defined $icons[$i+1] ? $i+1 : 0; } else { - $i = defined $icones[$i-1] ? $i-1 : @icones-1; + $i = defined $icons[$i-1] ? $i-1 : @icons-1; } - $set->($icones[$i]); + $set->($icons[$i]); }); $hb; } |