diff options
Diffstat (limited to 'perl-install/mouse.pm')
| -rw-r--r-- | perl-install/mouse.pm | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm index 1d47d1bb2..b7d56fb6b 100644 --- a/perl-install/mouse.pm +++ b/perl-install/mouse.pm @@ -477,13 +477,13 @@ sub test_mouse { $darea->realize(); my $wait = 0; - my ($m3_image, $m3_mask) = gtkcreate_xpm($darea, 'mouse_3b.xpm'); - my ($m3_imagep, $m3_maskp) = gtkcreate_xpm($darea, 'mouse_3b+.xpm'); - my ($m3_left, $m3_left_mask) = gtkcreate_xpm($darea, 'mouse_left.xpm'); - my ($m3_right, $m3_right_mask) = gtkcreate_xpm($darea, 'mouse_right.xpm'); - my ($m3_middle, $m3_middle_mask) = gtkcreate_xpm($darea, 'mouse_middle.xpm'); - my ($aru, $aru_mask) = gtkcreate_xpm($darea, 'arrow_up.xpm'); - my ($ard, $ard_mask) = gtkcreate_xpm($darea, 'arrow_down.xpm'); + my ($m3_image, $m3_mask) = gtkcreate_xpm('mouse_3b.xpm'); + my ($m3_imagep, $m3_maskp) = gtkcreate_xpm('mouse_3b+.xpm'); + my ($m3_left, $m3_left_mask) = gtkcreate_xpm('mouse_left.xpm'); + my ($m3_right, $m3_right_mask) = gtkcreate_xpm('mouse_right.xpm'); + my ($m3_middle, $m3_middle_mask) = gtkcreate_xpm('mouse_middle.xpm'); + my ($aru, $aru_mask) = gtkcreate_xpm('arrow_up.xpm'); + my ($ard, $ard_mask) = gtkcreate_xpm('arrow_down.xpm'); my $image = $m3_image; $mouse->{nbuttons} > 3 and $image = $m3_imagep; my $draw_text = sub { |