From 0a308931ce918f2ff8e6cb2bbb303adaaa699743 Mon Sep 17 00:00:00 2001 From: Karchnu Date: Fri, 27 Jul 2012 02:56:33 +0200 Subject: [PATCH] We can create an antipixel button. But this is basic and quite ugly. --- perl/antipixel/MyWrapper.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/perl/antipixel/MyWrapper.pm b/perl/antipixel/MyWrapper.pm index 808a1bf..6081838 100644 --- a/perl/antipixel/MyWrapper.pm +++ b/perl/antipixel/MyWrapper.pm @@ -160,7 +160,7 @@ sub do_antipixel_button { my $current_position = 10; for my $i (@mots) { $im->filledRectangle($current_position - 3, 2, $current_position + length($i) * 6 + 7, $y - 3, $couleurs_allouees{$self->couleur_interne}); - $im->string(gdMediumBoldFont, $current_position , $y - 0.75 * $y, $i, $couleurs_allouees{'blanc'}); + $im->string(gdTinyFont, $current_position , $y - 0.75 * $y, $i, $couleurs_allouees{'blanc'}); $current_position += length($i) * 6 + 15; } }