| 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";
}
