From: Octopi j. <oct...@ho...> - 2003-08-24 21:39:53
|
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 |