Leaked source code of windows server 2003
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
|
<HTML>
<HEAD><TITLE>PerlScript sample: Mouse tracking</TITLE></HEAD> <!--
ActiveState PerlScript sample PerlScript: The easiest, most powerful way to program custom web solutions. -->
<BODY BGCOLOR="#FFFFFF" TOPMARGIN=8><FORM method="POST" NAME="MyForm1"><TABLE CELLPADDING=0 BORDER=3 CELLSPACING=0><TR VALIGN=TOP ><TD><A HREF="index.htm" NAME="Image"><IMG SRC="PSBWlogo.gif" WIDTH=400 HEIGHT=48 ALT="The power of PerlScript!" BORDER=5></A><P></TD></TR><TR VALIGN=MIDDLE><TD VALIGN=MIDDLE ALIGN=CENTER><FONT SIZE=5><INPUT TYPE="text" NAME="TxtLinkDescription" SIZE=50></FONT></TD></TR></TABLE></FORM><HR>
<P><FONT SIZE=5><P> Move your mouse over the PerlScript logo to see Image_MouseMove event parameters. </FONT>
<SCRIPT language="PerlScript">sub Image_MouseMove { my ($x,$y, $s, $b) = @_; $window->document->MyForm1->TxtLinkDescription->{'Value'} = "MouseMove s:$s b:$b x:$x y:$y";}
sub Image_mousemove { Image_MouseMove(@_);}
sub Image_onmousemove { my $e = $window->event; my ($x,$y, $s, $b) = ($e->X, $e->Y, $e->OffsetX, $e->OffsetY); $window->document->MyForm1->TxtLinkDescription->{'Value'} = "MouseMove [X=$x Y=$y relX=$s relY=$b]";}</SCRIPT><P>
<!-- Horizontal line --><HR>
<TABLE BORDER=0 CELLPADDING=3 CELLSPACING=0 width=600><TR VALIGN=TOP> <TD ALIGN=RIGHT> <FONT FACE="Arial, Helvetica" SIZE="1"> <B>Best experienced with<BR> <A HREF="http://www.microsoft.com/ie/" TARGET="_top"> <img src="ie_animated.gif" width="88" height="31" border="0" alt="Microsoft Internet Explorer" vspace="5"></a> <BR>Click here to start.</B> </FONT></TD></TR></TABLE>
</BODY></HTML>
|
