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

[Octopi j. <oct...@ho...>]

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