[EMAIL PROTECTED] wrote:
Sorry, I forgot to put the version.
Perl: 5.8.7
Win32-Gui: 1.02
Afraid that I don't have a 1.02 to hand right now, but that's not the
latest. I'd thoroughly recommend the the 1.03 release, unless you've
got a good reason not to upgrade. I did fix some tooltip related issues
between 1.02 and 1.03.
See below, also:
Always
use strict;
use warnings;
unless you know why you're not using them.
use Win32::GUI;
use Win32::GUI();
unless you want the 370+ constants that Win32::GUI exports by default
polluting your namespace (note this will be changing over the next few
releases).
$Window = Win32::GUI::Window->new(
-name => 'Main',
-title => "tooltip test",
-width => 800,
-height => 525,
-minsize => [800,525],
);
my $Tip = Win32::GUI::Tooltip->new(
$Window,
The documented constructor takes a parent/owner window as a first
argument (although it's not strictly necessary, you should understand
the difference between a top level un-owned window and a top-level owned
window before ignoring this parameter.)
-name => "TT",
-pushexstyle => WS_EX_TOPMOST,
that extended style is applied automatically from v1.03 onwards
) or die "Failed to create TT";
$Window->Show();
Win32::GUI::Dialog();
sub Main_Terminate {
return -1;
}
_Terminate handler not compulsory since pre v1.0, if all you want is
default exiting behaviour.
Regards,
Rob.
