From 1ef3166979fae97033fe5c021484bcdf7aead2cb Mon Sep 17 00:00:00 2001
From: Guillaume Cottenceau <gc@mandriva.com>
Date: Fri, 20 Dec 2002 13:51:13 +0000
Subject: image in CVS is 3b+, not 3bp

---
 perl-install/mouse.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install/mouse.pm')

diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm
index 7488c450d..d0cb06ddd 100644
--- a/perl-install/mouse.pm
+++ b/perl-install/mouse.pm
@@ -445,11 +445,11 @@ sub test_mouse {
     ugtk2->import(qw(:wrappers));
     my $wait = 0;
     my %xpms;
-    $xpms{$_} = ugtk2::gtkcreate_pixbuf("mouse_$_.xpm") foreach qw(3b 3bp left right middle);
+    $xpms{$_} = ugtk2::gtkcreate_pixbuf("mouse_$_.xpm") foreach qw(3b 3b+ left right middle);
     $xpms{au} = ugtk2::gtkcreate_pixbuf('arrow_up.xpm');
     $xpms{ad} = ugtk2::gtkcreate_pixbuf('arrow_down.xpm');
     my $image = $xpms{'3b'};
-    $mouse->{nbuttons} > 3 and $image = $xpms{'3bp'};
+    $mouse->{nbuttons} > 3 and $image = $xpms{'3b+'};
     my $draw_text = sub {
   	my ($t, $y) = @_;
 	my $layout = $darea->create_pango_layout($t);
-- 
cgit v1.2.1