From: Sean H. <jal...@ho...> - 2003-08-25 12:46:19
|
>From: "Octopi juice" <oct...@ho...> >To: per...@li... >Subject: [perl-win32-gui-users] Button and MouseDown >Date: Sun, 24 Aug 2003 21:39:43 +0000 >MIME-Version: 1.0 >X-Originating-IP: [65.92.67.198] >X-Originating-Email: [oct...@ho...] >Received: from mc3-f36.law16.hotmail.com ([65.54.236.171]) by >mc3-s7.law16.hotmail.com with Microsoft SMTPSVC(5.0.2195.5600); Sun, 24 Aug >2003 14:42:40 -0700 >Received: from sc8-sf-list2.sourceforge.net ([66.35.250.206]) by >mc3-f36.law16.hotmail.com with Microsoft SMTPSVC(5.0.2195.5600); Sun, 24 >Aug 2003 14:42:40 -0700 >Received: from sc8-sf-list1-b.sourceforge.net ([10.3.1.13] >helo=sc8-sf-list1.sourceforge.net)by sc8-sf-list2.sourceforge.net with >esmtp (Exim 3.31-VA-mm2 #1 (Debian))id 19r2cF-0005rx-00; Sun, 24 Aug 2003 >14:41:39 -0700 >Received: from bay8-f18.bay8.hotmail.com ([64.4.27.18] helo=hotmail.com)by >sc8-sf-list1.sourceforge.net with esmtp (Exim 3.31-VA-mm2 #1 (Debian))id >19r2aU-0007qo-00for <per...@li...>; Sun, 24 >Aug 2003 14:39:50 -0700 >Received: from mail pickup service by hotmail.com with Microsoft SMTPSVC; >Sun, 24 Aug 2003 14:39:43 -0700 >Received: from 65.92.67.198 by by8fd.bay8.hotmail.msn.com with HTTP;Sun, 24 >Aug 2003 21:39:43 GMT >X-Message-Info: jl7Vrt/mfspwzECiFR8uHJ2FS0h0tonI >Message-ID: <BAY...@ho...> >X-OriginalArrivalTime: 24 Aug 2003 21:39:43.0952 (UTC) >FILETIME=[3B4D3D00:01C36A88] >Sender: per...@li... >Errors-To: per...@li... >X-BeenThere: per...@li... >X-Mailman-Version: 2.0.9-sf.net >Precedence: bulk >List-Help: ><mailto:per...@li...?subject=help> >List-Post: <mailto:per...@li...> >List-Subscribe: ><https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,<mailto:per...@li...?subject=subscribe> >List-Id: <perl-win32-gui-users.lists.sourceforge.net> >List-Unsubscribe: ><https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,<mailto:per...@li...?subject=unsubscribe> >List-Archive: ><http://sourceforge.net/mailarchive/forum.php?forum=perl-win32-gui-users> >X-Original-Date: Sun, 24 Aug 2003 21:39:43 +0000 >Return-Path: per...@li... > >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 > > > >------------------------------------------------------- >This SF.net email is sponsored by: VM Ware >With VMware you can run multiple operating systems on a single machine. >WITHOUT REBOOTING! Mix Linux / Windows / Novell virtual machines >at the same time. Free trial click >here:http://www.vmware.com/wl/offer/358/0 >_______________________________________________ >Perl-Win32-GUI-Users mailing list >Per...@li... >https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users _________________________________________________________________ MSN 8: Get 6 months for $9.95/month. http://join.msn.com/?page=dept/dialup |