From: "Octopi juice" <[EMAIL PROTECTED]>
To: perl-win32-gui-users@lists.sourceforge.net
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: [EMAIL PROTECTED]
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 <perl-win32-gui-users@lists.sourceforge.net>; 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: <[EMAIL PROTECTED]>
X-OriginalArrivalTime: 24 Aug 2003 21:39:43.0952 (UTC) FILETIME=[3B4D3D00:01C36A88]
Sender: [EMAIL PROTECTED]
Errors-To: [EMAIL PROTECTED]
X-BeenThere: perl-win32-gui-users@lists.sourceforge.net
X-Mailman-Version: 2.0.9-sf.net
Precedence: bulk
List-Help: <mailto:[EMAIL PROTECTED]>
List-Post: <mailto:perl-win32-gui-users@lists.sourceforge.net>
List-Subscribe: <https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,<mailto:[EMAIL PROTECTED]>
List-Id: <perl-win32-gui-users.lists.sourceforge.net>
List-Unsubscribe: <https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users>,<mailto:[EMAIL PROTECTED]> 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: [EMAIL PROTECTED]

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
Perl-Win32-GUI-Users@lists.sourceforge.net
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


Reply via email to