[perl-win32-gui-users] Button and MouseDown

[Octopi juice]

How come this doesn't work as described in the documentation?
The move_MouseDown sub never gets called, but the move_Click one does.
http://dada.perl.it/gui_docs/Button.html#
Shows that move_MouseDown should work, so why doesn't it?
(I am using the latest version.)


##########
use Win32::GUI;

$main = new Win32::GUI::Window(
   -name => "Window",
   -pos => [ 100, 100 ],
   -size => [400, 200 ],
);

$move = $main->AddButton(
    -pos     => [100, 90],
    -size    => [200, 20],
    -text => "hello",
    -name => 'move',
);

$main->Show();

Win32::GUI::Dialog();

sub Window_Terminate {
 return -1;
}

sub move_MouseDown {
 print "MouseDown\n";
 return 0;
}

sub move_Click {
 print "MouseClick\n";
 return 0;
}
###########

_________________________________________________________________
Tired of spam? Get advanced junk mail protection with MSN 8.  
http://join.msn.com/?page=features/junkmail