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.
66 lines
1.7 KiB
66 lines
1.7 KiB
<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>
|
|
|