Re^3: Win32::GUI problem

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.

Comment on Re^3: Win32::GUI problem Download Code

Replies are listed 'Best First'.
Re^4: Win32::GUI problem by Anonymous Monk on Sep 23, 2015 at 16:07 UTC
I am not getting anywhere so here is some code `use Win::GUI; $main = Win32::GUI::Window->(-name=>'Main',-width=>600,-heigth= >600); $Screen = new Win32::GUI::DCC("DISPLAY"); $main->Show; Win32::GUI::Dialog(); sub Main_Terminate{-1;}; sub Main_MouseDown{ ($x,$y)=Win32::GUI::GetCursorPos; print "$x\n"; print "$y\n"; }` [download] Help would be appreciated, i have everything ready to.	[reply] [d/l]

Replies are listed 'Best First'.

Re^4: Win32::GUI problem
by Anonymous Monk on Sep 23, 2015 at 16:07 UTC

I am not getting anywhere so here is some code

 
use Win::GUI;
$main = Win32::GUI::Window->(-name=>'Main',-width=>600,-heigth= >600);
$Screen = new Win32::GUI::DCC("DISPLAY");
$main->Show;
Win32::GUI::Dialog();

sub Main_Terminate{-1;};
sub Main_MouseDown{
($x,$y)=Win32::GUI::GetCursorPos;
print "$x\n";
print "$y\n";
}
[download]

Help would be appreciated, i have everything ready to.

[reply]
[d/l]