Skip Menu |

This queue is for tickets about the Win32-GuiTest CPAN distribution.

Report information
The Basics
Id: 40607
Status: resolved
Priority: 0/
Queue: Win32-GuiTest

People
Owner: Nobody in particular
Requestors: phanty [...] web.de
Cc:
AdminCc:

Bug Information
Severity: Normal
Broken in: 1.54
Fixed in: (no value)



Subject: MouseMoveAbsPix cant "gate" any Pixel
as u can see in bug.gif, there are some pixel u cant gate (or in this example draw). its probably a rounding-problem. i hope u can solve properly. meantime i wrote my own MouseMoveAbsPix_fixed (for my screen-resolution). ;)
Subject: bug.gif
Download bug.gif
image/gif 47.9k
bug.gif
Subject: test.pl
#!/usr/bin/perl -w use strict; use Win32::GuiTest qw( :ALL ); foreach (0..50) { MouseMoveAbsPix(100+$_, 100); SendLButtonDown(); SendLButtonUp(); MouseMoveAbsPix(100, 100+$_); SendLButtonDown(); SendLButtonUp(); } foreach (0..50) { MouseMoveAbsPix_fixed(100+$_, 200); SendLButtonDown(); SendLButtonUp(); MouseMoveAbsPix_fixed(100, 200+$_); SendLButtonDown(); SendLButtonUp(); } sub MouseMoveAbsPix_fixed { my ($x1, $y1) = @_; # Round UP! my $x2 = int(65536 / 1280 * $x1 + 0.999999); my $y2 = int(65536 / 1024 * $y1 + 0.999999); SendMouseMoveAbs($x2, $y2); }
was fixed in 1.56