Jeremy, try this.  It works on my machine (Win2k, AP 626).  Just mouse over the 
button and the tip should should up in a few seconds.  BTW, I have been able to 
dynamically change tip's within a systray menu, but have not tried on a 
standard control (button, etc).

use Win32::GUI;

my $Window = new Win32::GUI::Window (
        -name   => "Window",
        -topmost => 1,
        -left   => 300,
        -dialogui => 1,
        -top    => 400,
        -width  => 222,
        -height => 235,
        -text   => "Test",
   # ....
        -events =>
        {
                Terminate => sub { print "Dying\n"; return -1 },
                #Activate  => sub { print "here I am!\n"; },
        },
        #-onMinimize => sub { print "no please!\n"; },
);

        $Window->AddDateTime(
                -top    =>      1,
                -left   =>      1,
                -width  => 180,
                -height =>      25,
                -name   =>      "dateFromT",
                -events =>
                        {
                                #Click => sub { print "Got a Click\n"; },
                                LostFocus  => sub { print "Lost Focus\n"; },
                        },
                -onClick => sub { print "Got a Click\n"; },
                -onChange => sub { print "Got a Click\n"; },
        );
$Window->AddButton(
-name =>"but",
-top => '30',
-left => '1',
-text => "TipTest",
-tip => "This is a Tip!",
-width  =>      150,
-height =>      25,
);


#$Window->dateFromT->CheckBox(1);
$Window->dateFromT->Format('MM/dd/yyyy  HH:mm:ss');
$Window->Enable();
$Window->Show();
Win32::GUI::Dialog;

Joe Frazier, Jr.
Technical Support Engineer
Peopleclick Service Support

Tel:  +1-800-841-2365
E-Mail: mailto:[EMAIL PROTECTED]


> -----Original Message-----
> From: Glenn Linderman [mailto:[EMAIL PROTECTED]
> Sent: Saturday, July 05, 2003 4:36 PM
> To: Jeremy White; perl-win32-gui-users@lists.sourceforge.net
> Subject: Re: [perl-win32-gui-users] Tooltips - do they work?
> 
> 
> On approximately 7/5/2003 1:03 PM, came the following characters from
> the keyboard of Glenn Linderman:
> 
> > On approximately 7/5/2003 9:51 AM, came the following 
> characters from
> > the keyboard of Jeremy White:
> > 
> >>> From: Glenn Linderman <[EMAIL PROTECTED]>
> >>>
> >>> Unfortunately, the examples that I have are not suitable 
> for including
> >>> in documentation, as I pass things through a couple 
> layers of wrappers
> >>> before it gets to a real Win32::GUI call.  But the gist 
> of it is just 
> >>> to add
> >>>
> >>>     -tip => 'Configuration options menu',
> >>>
> >>
> >> Thanks for the reply - I created a simple window, with one 
> button with 
> >> the tip option included. Still nothing…tried it under 5.6, 
> and 5.8, 
> >> both with 665. I’m on XP. Do I need to create event handlers or 
> >> anything? I am just being stupid!?
> >>
> >> Perhaps, I should say what I think should happen - just in 
> case I’m 
> >> barking up the wrong tree - when the mouse hovers over the 
> button, the 
> >> little yellow box should appear with the text that was 
> specified in 
> >> the -tip option?
> > 
> > 
> > Indeed, that is the sort of behavior you should expect, and 
> that I get, 
> > with Win2K SP3 or SP4 (worked on both), Perl 5.8 build 805, 
> Win32::GUI 
> > build 0.0.665.
> 
> Oh, and maybe I should mention that tooltips don't _always_ 
> show up.  It 
> seems that if another process is consuming all the CPU cycles, that 
> tooltips are not displayed during that time.  Maybe it is some 
> "benevolent" way of shedding CPU activity since it is so 
> loaded already? 
>   However, when I'm using a program that has tooltips, and they don't 
> show up, I get aggravated.... but I do have a program that 
> periodically 
> slurps up all my CPU cycles, so I guess it is my own fault... 
> but still, 
> I think the tooltips should show up if you leave your mouse 
> there long 
> enough.
> 
> -- 
> Glenn -- http://nevcal.com/
> ===========================
> Like almost everyone, I receive a lot of spam every day, much of it
> offering to help me get out of debt or get rich quick.  It's 
> ridiculous.
> -- Bill Gates
> 
> 
> 
> -------------------------------------------------------
> This SF.Net email sponsored by: Free pre-built ASP.NET sites including
> Data Reports, E-commerce, Portals, and Forums are available now.
> Download today and enter to win an XBOX or Visual Studio .NET.
> http://aspnet.click-url.com/go/psa00100006ave/direct;at.asp_06
> 1203_01/01
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Perl-Win32-GUI-Users@lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 
> 

Reply via email to