RE: [perl-win32-gui-users] DateTime object in Win32::GUI 0.665

[Frazier, J. J. <Joe...@Pe...>]

I have been unable to get any events working with this control.  Any =
thoughts?

use Win32::GUI;

my $Window =3D new Win32::GUI::Window (
	-name   =3D> "Window",
	-topmost =3D> 1,
	-left   =3D> 300,
	-dialogui =3D> 1,
	-top    =3D> 400,
	-width  =3D> 222,
	-height =3D> 235,
	-text   =3D> "Test",
   # ....
	-events =3D>
	{
		Terminate =3D> sub { print "Dying\n"; return -1 },
	},
);

	$Window->AddDateTime(
		-top	=3D>	1,
		-left	=3D>	1,
		-width	=3D> 180,
		-height	=3D>	25,
		-name	=3D>	"dateFromT",
		-events =3D>
			{
				#Click =3D> sub { print "Got a Click\n"; },
				LostFocus  =3D> sub { print "Lost Focus\n"; },
			},
		-onClick =3D> sub { print "Got a Click\n"; },
		-onChange =3D> sub { print "Got a Click\n"; },
	);

$Window->Enable();
$Window->Show();
Win32::GUI::Dialog;

I also tried the named sub way, and this also failed.

Joe Frazier, Jr.
Technical Support Engineer
Peopleclick Service Support

Tel:  +1-800-841-2365
E-Mail: mailto:su...@pe...


> -----Original Message-----
> From: Anthony George [mailto:AG...@em...]
> Sent: Tuesday, October 01, 2002 8:24 AM
> To: gabor.borus; Perl List
> Subject: Re: [perl-win32-gui-users] DateTime object in=20
> Win32::GUI 0.665
>=20
>=20
> -----Original Message-----
> From: "gabor.borus" <gab...@fr...>
> To: "Perl List" <per...@li...>
> Date: Tue, 1 Oct 2002 12:34:11 +0200
> Subject: [perl-win32-gui-users] DateTime object in Win32::GUI 0.665
>=20
> > Hi all!
> >=20
> > Has anybody a working example for DateTime object?
>=20
> 	new Win32::GUI::DateTime (
> 		$mywindow,
> 		-top	=3D>	1,
> 		-left	=3D>	1,
> 		-width	=3D>	90,
> 		-height	=3D>	25,
> 		-name	=3D>	"dateFromT",
> 	);
>=20
>=20
> sub something_Click {
>     my($mmF,$ddF,$yyF)=3Dsplit(/\//,$mywindow->dateFromT->Text());
> }
>=20
>=20
>=20
> -------------------------------------------------------
> This sf.net email is sponsored by: DEDICATED SERVERS only $89!
> Linux or FreeBSD, FREE setup, FAST network. Get your own server=20
> today at http://www.ServePath.com/indexfm.htm
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>=20