Most likely, you need to connect the MouseUp subroutine to some event. See the Events section in the documentation. Most likely you will want to write something like sub MyWindow_MouseUp, but it's been a long time since I last did Win32::GUI stuff.

Tx for the fast reply.

Fast? That is not a goal. Try fract

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]

It's been quite a while since I've used Win32::GUI and you're trying to do something that I have not tried doing before. Looking at the common events documentation for the Win32::GUI module, here's a few untested ideas:

• Use the MouseOver event to detect when the mouse is over the desired window object to trigger your code to get the mouse position.
• Use the MouseMove event to detect when the mouse moves, which in turn triggers your mouse position code.
• Use one of the click related events so that a mouse click is what triggers your code to get the mouse position.
• I'm not sure that I like this idea, but you might even be able to use a Win32::GUI::Timer object to trigger your mouse position code at a set interval.

use strict;
use warnings;

use Win32::GUI;

my $draw  = 0;

my $mw = Win32::GUI::Window->new(
    -title => "Click anywhere to draw",
    -pos   => [100,100],
    -size  => [500,500],
    -onMouseDown => \&down,
    -onMouseUp   => \&up,
    -onMouseMove => \&move,
);

my $DC = $mw->GetDC;
$mw->Show();
Win32::GUI::Dialog();

exit(0);

sub down {
    my ($object, $x, $y) = @_;
    $draw = 1;
    $DC->TextOut(10,10,"start $x,$y");
    return 1;
}

sub up {
    my ($object, $x, $y) = @_;
    $draw = 0;
    $DC->TextOut(400,10,"end $x,$y");
    return 1;
}

sub move {
    my ($object, $x, $y) = @_;
    return unless $draw;
    $DC->SetPixel($x,$y,[192,192,192]);
    $DC->TextOut(200,10,"at $x,$y");
    return 1;
}
[download]

Tx a lot.

Your code is not working.

Can you elaborate on what you're seeing? I always test code before posting so I can tell you this works on my machine at least. To be clear, you should get a square white window, and when you left-mouse-down in the window it will report the coordinates in the top left. If you hold left-mouse-down and move the mouse it will draw pixels and report the current coordinates in the top centre, and when you release the left-mouse it will report the final coordinates in the top right.

--
I'd like to be able to assign to an luser

Its not working, Im trying

but the code is not being executed, although it doesnt raise an error.

Can you maybe show us a short (20 lines) self-contained program that demonstrates the problem?

No, I can't

If you can't show us the code, consider working on reducing the code you have until it consists of little more than

use Win32::GUI;

# create main window
# connect MouseUp handler to events of the window

$main->Show();
[download]

Most likely while reducing your program to this minimal example, you will find where the error lies.

If you can't even do that, we cannot help you either.

Tx for the info. Must be sufficient.