| Is there a MouseOver function for Buttons? I didn't see 
| anything in the docs.

When you create a Button-class you'll get the MouseMove event. Other than a
real MouseOver, this fires every time the mouse moves. It would take some
fantasy to come up with MouseEnter and MouseLeave. One way would be to do
$Main->Belly->ChangeCursor ($something); and then have a timer function look
up Win32::GUI::GetCursor() to see if the mouse has left. Not exactly
elegant.

Maybe you just don't care and have your status bar display the help line
until the user mouseovers another button - why not.

new Win32::GUI::Class
(
        -name => '_Button',
        -widget => 'Button',
        -extends => 'Button',
);
$Main->AddButton
(
        -name => 'Belly',
        -text => 'Clickme',
        -class => '_Button',
);
sub Belly_MouseMove
{
        local ($button, $xpos, ypos) = @_;
#       print join (', ', @_), "\n";
}

Reply via email to