home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Australian Personal Computer 2004 July
/
APC0407D2.iso
/
workshop
/
apache
/
files
/
ActivePerl-5.6.1.638-MSWin32-x86.msi
/
_549cd8c84e4e39d047489f5a9adc45f8
< prev
next >
Encoding:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
Macintosh to JP
NeXTSTEP
RISC OS/Acorn
Shift JIS
UTF-8
Wrap
Text File
|
2004-04-13
|
384 b
|
17 lines
# NOTE: Derived from ..\blib\lib\Tk\Scale.pm.
# Changes made here will be lost when autosplit is run again.
# See AutoSplit.pm.
package Tk::Scale;
#line 129 "..\blib\lib\Tk\Scale.pm (autosplit into ..\blib\lib\auto\Tk\Scale\ButtonUp.al)"
sub ButtonUp
{
my ($w,$x,$y) = @_;
$w->CancelRepeat();
$w->EndDrag();
$w->Activate($x,$y)
}
# end of Tk::Scale::ButtonUp
1;