[perl-win32-gui-users] Tooltip

[Joseph . Vieira]

Hello,

Well my laptop had an accident this weekend.  WOOHOO!  I got a new laptop. 
 So I installed PERL and win32::gui started working on my program and got 
an error that it failed to create a tooltip.  I thought maybe something 
got messed up when the old laptop died or something.  So I wrote a small 
program that just creates a window and a new tooltip and it couldn't 
create the tool tip.  I think I'm using the same version of PERL and 
win32::gui as on my other laptop.

Thanks,
Joe


Code:
use Win32::GUI;

$Window = Win32::GUI::Window->new(
        -name   => 'Main',
        -title => "tooltip test",
        -width  => 800,
        -height => 525,
        -minsize => [800,525],
        );
 
my $Tip = Win32::GUI::Tooltip->new( 
        -name => "TT", 
        -pushexstyle => WS_EX_TOPMOST, 
        ) or die "Failed to create TT";

$Window->Show();

Win32::GUI::Dialog(); 

sub Main_Terminate {
        return -1;
}


Joseph Vieira 
CIO IT Support 
FUJITSU CONSULTING 
Phone:    (732) 744-8057
Email:  [EMAIL PROTECTED]