CD Actual Thematic 7: Programming/CDAT7.iso/Share/Editores/Perl5/perl/lib/site/auto/Tk/Text/Button2.al

Text File | 1997-08-10 | 226 b | 14 lines

# NOTE: Derived from ..\blib\lib\Tk\Text.pm.  Changes made here will be lost.
package Tk::Text;

sub Button2
{
 my ($w,$x,$y) = @_;
 $w->scan("mark",$x,$y);
 $Tk::x = $x;
 $Tk::y = $y;
 $Tk::mouseMoved = 0;
}

1;