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