summaryrefslogtreecommitdiffstats
path: root/perl-install/mouse.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-11-27 20:50:12 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-11-27 20:50:12 +0000
commitb0d554c4155060ed665844fdf7b2a08db9bb3356 (patch)
treed1236029c2ac147b49a2da74bf132c3f56619406 /perl-install/mouse.pm
parentc2b148e1e94892d8d72000ed087b607ae28b5808 (diff)
downloaddrakx-b0d554c4155060ed665844fdf7b2a08db9bb3356.tar
drakx-b0d554c4155060ed665844fdf7b2a08db9bb3356.tar.gz
drakx-b0d554c4155060ed665844fdf7b2a08db9bb3356.tar.bz2
drakx-b0d554c4155060ed665844fdf7b2a08db9bb3356.tar.xz
drakx-b0d554c4155060ed665844fdf7b2a08db9bb3356.zip
perl_checker adaptations
Diffstat (limited to 'perl-install/mouse.pm')
-rw-r--r--perl-install/mouse.pm16
1 files changed, 9 insertions, 7 deletions
diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm
index 04acaad88..8ba23f7c4 100644
--- a/perl-install/mouse.pm
+++ b/perl-install/mouse.pm
@@ -23,7 +23,7 @@ my %mice =
'sunmouse' =>
[ [ 'sunmouse' ],
[ [ 3, 'sun', 'sun', N_("Sun - Mouse") ]
- ]]
+ ] ]
) :
(
'PS/2' =>
@@ -37,7 +37,7 @@ my %mice =
[ 5, 'netmouse', 'NetMousePS/2', N_("Genius NetMouse") ],
[ 5, 'netmouse', 'NetScrollPS/2', N_("Genius NetScroll") ],
[ 7, 'ps/2', 'ExplorerPS/2', N_("Microsoft Explorer") ],
- ]],
+ ] ],
'USB' =>
[ [ 'usbmouse' ],
@@ -46,7 +46,7 @@ my %mice =
[ 3, 'ps/2', 'PS/2', N_("Generic") ],
[ 5, 'ps/2', 'IMPS/2', N_("Wheel") ],
[ 7, 'ps/2', 'ExplorerPS/2', N_("Microsoft Explorer") ],
- ]],
+ ] ],
N_("serial") =>
[ [ map { "ttyS$_" } 0..3 ],
@@ -63,19 +63,19 @@ my %mice =
[ 2, 'MMHitTab', 'MMHittab', N_("MM HitTablet") ],
[ 3, 'Logitech', 'Logitech', N_("Logitech Mouse (serial, old C7 type)") ],
[ 3, 'Microsoft', 'ThinkingMouse', N_("Kensington Thinking Mouse") ],
- ]],
+ ] ],
N_("busmouse") =>
[ [ arch() eq 'ppc' ? 'adbmouse' : ('atibm', 'inportbm', 'logibm') ],
[ if_(arch() eq 'ppc', [ 1, 'Busmouse', 'BusMouse', N_("1 button") ]),
[ 2, 'Busmouse', 'BusMouse', N_("2 buttons") ],
[ 3, 'Busmouse', 'BusMouse', N_("3 buttons") ],
- ]],
+ ] ],
N_("none") =>
[ [ 'none' ],
[ [ 0, 'none', 'Microsoft', N_("No mouse") ],
- ]],
+ ] ],
);
@@ -442,7 +442,7 @@ sub test_mouse_install {
$w->{window}->set_usize(undef, $height+10);
$w->sync; # HACK
Gtk::Gdk->pointer_grab($darea->window, 1,
- [ 'pointer_motion_mask'],
+ [ 'pointer_motion_mask' ],
$darea->window, undef, 0);
$w->main;
}
@@ -465,6 +465,8 @@ sub test_mouse_standalone {
sub test_mouse {
my ($mouse, $w, $darea, $width, $height) = @_;
+ require my_gtk;
+ my_gtk->import(qw(:wrappers));
$darea->realize();
my $wait = 0;
my ($m3_image, $m3_mask) = gtkcreate_xpm('mouse_3b.xpm');