ActivePerl Documentation
Table of Contents
Getting Started
Welcome To ActivePerl Release Notes Readme ActivePerl Change Log Install Notes Linux Solaris Windows ActivePerl Components Overview PPM Windows Specifics OLE Browser PerlScript Perl for ISAPI PerlEZ ActivePerl FAQ Introduction Availability & Install Using PPM Docs & Support Windows Specifics Perl for ISAPI Windows 9X/NT/2000 Quirks Web Server Config Web programming Programming Modules & Samples Embedding & Extending Using OLE with Perl Windows Scripting Active Server Pages Windows Script Host Windows Script ComponentsCore Perl Documentation
perl perlfaq perltoc perlbook perlsyn perldata perlop perlreftut perldsc perllol perllexwarn perldebug perlrun perlfunc perlopentut perlvar perlsub perlmod perlpod perlstyle perlmodlib perlmodinstall perltrap perlport perlsec perlref perlre perlform perllocale perlunicode perlboot perltoot perltootc perlobj perlbot perltie perlipc perlnumber perlfork perlthrtut perldiag perlfaq1 perlfaq2 perlfaq3 perlfaq4 perlfaq5 perlfaq6 perlfaq7 perlfaq8 perlfaq9 perlcompile perlembed perlxstut perlxs perlguts perlcall perlfilter perldbmfilter perlapi perlintern perlapio perltodo perlhack perlhist perldelta perl5005delta perl5004delta perlamiga perlcygwin perldos perlhpux perlmachten perlos2 perlos390 perlvms perlwin32Pragmas
attributes attrs autouse base blib bytes charnames constant diagnostics fields filetest integer less lib locale lwpcook open ops overload perllocal re sigtrap strict subs utf8 vars warningsLibraries
ActivePerl DocTools TOC RDF AnyDBM_File Archive Tar AutoLoader AutoSplit B Asmdata Assembler Bblock Bytecode C CC Debug Deparse Disassembler Lint Showlex Stackobj Terse Xref Benchmark Bundle LWP ByteLoader Carp Heavy CGI Apache Carp Cookie Fast Pretty Push Switch Class Struct Compress Zlib Config CPAN FirstTime Nox Cwd Data Dumper DB Devel DProf Peek SelfStubber Digest HMAC HMAC_MD5 HMAC_SHA1 MD2 MD5 SHA1 DirHandle Dumpvalue DynaLoader English Env Errno Exporter Heavy ExtUtils Command Embed Install Installed Liblist MakeMaker Manifest Miniperl Mkbootstrap Mksymlists MM_Cygwin MM_OS2 MM_Unix MM_VMS MM_Win32 Packlist testlib Fatal Fcntl File Basename CheckTree Compare Copy CounterFile DosGlob Find Glob Listing Path Spec Functions Mac OS2 Unix VMS Win32 stat FileCache FileHandle FindBin Font AFM Getopt Long Std HTML AsSubs Element Entities Filter Form FormatPS Formatter FormatText HeadParser LinkExtor Parse Parser TokeParser TreeBuilder HTTP Cookies Daemon Date Headers Util Message Negotiate Request Common Response Status I18N Collate IO Dir File Handle Pipe Poll Seekable Select Socket INET UNIX IPC Msg Open2 Open3 Semaphore SysV LWP Debug MediaTypes MemberMixin Protocol RobotUA Simple UserAgent Math BigFloat BigInt Complex Trig MD5 MIME Base64 QuotedPrint NDBM_File Net Cmd Config Domain DummyInetd FTP hostent libnetFAQ netent Netrc NNTP PH Ping POP3 protoent servent SMTP SNPP Time O ODBM_File Opcode Pod Checker Find Html InputObjects Man Parser ParseUtils Plainer Select Text Color Termcap Usage POSIX PPM SOAPClient SOAPServer Safe SDBM_File Search Dict SelectSaver SelfLoader SHA Shell SOAP Defs Envelope EnvelopeMaker GenericHashSerializer GenericInputStream GenericScalarSerializer Lite OutputStream Packager Parser Transport HTTP Apache CGI Client Server LOCAL MAILTO POP3 TCP TypeMapper Socket Symbol Sys Hostname Syslog Term ANSIColor Cap Complete ReadLine Test Harness Text Abbrev ParseWords Soundex Tabs Wrap Thread Queue Semaphore Signal Specific Tie Array Handle Hash RefHash Scalar SubstrHash Time gmtime Local localtime tm UDDI Lite UNIVERSAL URI data Escape file Heuristic ldap URL WithBase User grent pwent Win32 AuthenticateUser ChangeNotify Clipboard Console Event EventLog File FileSecurity Internet IPC Mutex NetAdmin NetResource ODBC OLE Const Enum NEWS NLS TPJ Variant PerfLib Pipe Process Registry Semaphore Service Sound TieRegistry Win32API File Net Registry WWW RobotRules AnyDBM_File XML Element Parser Expat PPD PPMConfig ValidatingElement XSLoader|
Tk::callbacks - Specifying code for Tk to call. |
NAME
Tk::callbacks - Specifying code for Tk to call.
SUPPORTED PLATFORMS
- Linux
- Solaris
- Windows
SYNOPSIS
One can specify a callback in one of the following ways:
Without arguments:
... => \&subname, ...
... => sub { ... }, ...
... => 'methodname', ...
or with arguments:
... => [ \&subname ?, args ...? ], ...
... => [ sub { ... } ?, args...? ], ...
... => [ 'methodname' ?, args...?], ...
DESCRIPTION
Perl/Tk has a callback, where Tcl/Tk has a command string (i.e. a fragment of Tcl to be executed). A perl/Tk callback can take one of the following basic forms:
- Reference to a subroutine
\&subname
- Anonymous subroutine (closure)
sub { ... }
- A method name
'methodname'
Any of these can be provided with arguments by enclosing them and the arguments in []. Here are some examples:
$mw->bind($class, ``<Delete>'' => 'Delete');
This will call $widget->Delete, the $widget being provided (by bind) as the one where the Delete key was pressed.
While having bind provide a widget object for you is ideal in many cases it can be irritating in others. Using the list form this behaviour can be modified:
$a->bind(``<Delete>'',[$b => 'Delete']);
because the first element $b is an object bind will call $b->Delete.
Note that method/object ordering only matters for bind callbacks,
the auto-quoting in perl5.001 makes the first of these a little more readable:
$w->configure(-yscrollcommand => [ set => $ysb]);
$w->configure(-yscrollcommand => [ $ysb => 'set' ]);
but both will call $ysb->set(args provided by Tk)
Another use of arguments allows you to write generalized methods which are easier to re-use:
$a->bind(``<Next>'',['Next','Page']);
$a->bind(``<Down>'',['Next','Line']);
This will call $a->Next('Page') or $a->Next('Line') respectively.
Note that the contents of the [] are evaluated by perl when the
callback is created. It is often desirable for the arguments provided
to the callback to depend on the details of the event which caused
it to be executed. To allow for this callbacks can be nested using the
Ev(...) ``constructor''.
Ev(...) inserts callback objects into the
argument list. When perl/Tk glue code is preparing the argument list for
the callback it is about to call it spots these special objects and
recursively applies the callback process to them.
EXAMPLES
$entry->bind('<Return>' => [$w , 'validate', Ev(['get'])]);
$toplevel->bind('all', '<Visibility>', [\&unobscure, Ev('s')]);
$mw->bind($class, '<Down>', ['SetCursor', Ev('UpDownLine',1)]);
SEE ALSO
Tk::bind Tk::after Tk::options Tk::fileevent
KEYWORDS
callback, closure, anonymous subroutine, bind
|
Tk::callbacks - Specifying code for Tk to call. |