Re: Win32::GUI problem

You should look in the perl/site/bin folder for 'win32-gui-demos.pl'. Whenever I run into a problem with how something is suppose to work, I usually get the most help from looking through the examples. I use WxPerl, but I also tinkered with win32::gui a while ago and it has a demo module in the folder mentioned above, same for wxperl also. Good luck :)

Comment on Re: Win32::GUI problem

Replies are listed 'Best First'.
Re^2: Win32::GUI problem by Lotus1 (Vicar) on Sep 23, 2015 at 02:23 UTC
I found this example at Win32::GuiTest::Examples called showmouse.pl. It didn't work at first until I either added `$\|++` or printed to STDERR. `#!/usr/bin/perl # This script has been written by Jarek Jurasz jurasz@imb.uni-karlsruh +e.de #$\|++; ## use this if you don't want to use STDERR use Win32::GuiTest qw(GetCursorPos); while (1) { my ($x, $y) = GetCursorPos(); print STDERR "\rx:$x y:$y -"; sleep 1; }` [download]	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^2: Win32::GUI problem
by Lotus1 (Vicar) on Sep 23, 2015 at 02:23 UTC

I found this example at Win32::GuiTest::Examples called showmouse.pl. It didn't work at first until I either added $|++ or printed to STDERR.

#!/usr/bin/perl
# This script has been written by Jarek Jurasz jurasz@imb.uni-karlsruh
+e.de
#$|++;  ## use this if you don't want to use STDERR
use Win32::GuiTest qw(GetCursorPos);
while (1)
    {
      my ($x, $y) = GetCursorPos();
      print STDERR "\rx:$x  y:$y   -";
      sleep 1;
    }
[download]

[reply]
[d/l]
[select]