RE: [perl-win32-gui-users] Systray Double Clicks Not Working?

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

Per the docs, DblClick event is not available on the NotifyIcon.  =
However, you can:

sub NI_MouseEvent
{
	my $a =3D shift;
	my %events =3D (
		512 =3D> 'Mouse Move',
		514 =3D> 'Left Click',
		515 =3D> 'Left DoubleClick',
		517 =3D> 'Right Click',
		518 =3D> 'Right DoubleClick',
		519 =3D> 'Middle Down',
		520 =3D> 'Middle Up',
	);
	if ($a !=3D 512)
	{
		if (exists ($events{$a}))
		{
			print "Event :" ,$events{$a}, "\n";
		}
		else
		{
			print $a,"\n";
		}
	}
}

with a NotifyIcon named NI and catch them all yourself.  However, click =
events will be fired twice before the doubleclick event is fired.

Joe Frazier, Jr.
Technical Support Engineer
Peopleclick Service Support

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


> -----Original Message-----
> From: Morbus Iff [mailto:mo...@di...]
> Sent: Monday, October 21, 2002 4:02 PM
> To: per...@li...
> Subject: [perl-win32-gui-users] Systray Double Clicks Not Working?
>=20
>=20
>=20
> How come this will work:
>=20
>    sub _Systray_Click {
>       $window->Enable;
>       $window->Show;
>    }
>=20
> but this won't:
>=20
>    sub _Systray_DblClick {
>       $window->Enable;
>       $window->Show;
>    }
>=20
> I'd like to follow Win32 standards by only maximizing the window when
> a double click has been passed, but I'm not able to make that happen.
> Do I need to start counting single-clicks? ;)
>=20
>=20
> --=20
> Morbus Iff ( i'm the droid you're looking for )
> Culture: http://www.disobey.com/ and http://www.gamegrene.com/
> Please Me: http://www.amazon.com/exec/obidos/wishlist/25USVJDH68554
> icq: 2927491 / aim: akaMorbus / yahoo: morbus_iff / jabber.org: morbus
>=20
>=20
>=20
> -------------------------------------------------------
> This sf.net emial is sponsored by: Influence the future=20
> of  Java(TM) technology. Join the Java Community=20
> Process(SM) (JCP(SM)) program now.=20
> http://ad.doubleclick.net/clk;4699841;7576298;k?http://www.sun
> .com/javavote
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>=20