.\" Automatically generated by Pod::Man v1.34, Pod::Parser v1.13
.\" ========================================================================
.de Sh \" Subsection heading
.de Sp \" Vertical space (when we can't use .PP)
.de Vb \" Begin verbatim text
.de Ve \" End verbatim text
.\" Set up some character translations and predefined strings. \*(-- will
.\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left
.\" double quote, and \*(R" will give a right double quote. | will give a
.\" real vertical bar. \*(C+ will give a nicer C++. Capital omega is used to
.\" do unbreakable dashes and therefore won't be available. \*(C` and \*(C'
.\" expand to `' in nroff, nothing in troff, for use with C<>.
.ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
. if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch
. if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\" diablo 12 pitch
.\" If the F register is turned on, we'll generate index entries on stderr for
.\" titles (.TH), headers (.SH), subsections (.Sh), items (.Ip), and index
.\" entries marked with X<> in POD. Of course, you'll have to process the
.\" output yourself in some meaningful fashion.
. tm Index:\\$1\t\\n%\t"\\$2"
.\" For nroff, turn off justification. Always turn off hyphenation; it makes
.\" way too many mistakes in technical documents.
.\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2).
.\" Fear. Run. Save yourself. No user-serviceable parts.
. \" fudge factors for nroff and troff
. ds #H ((1u-(\\\\n(.fu%2u))*.13m)
. \" simple accents for nroff and troff
. ds ' \\k:\h'-(\\n(.wu*8/10-\*(#H)'\'\h"|\\n:u"
. ds ` \\k:\h'-(\\n(.wu*8/10-\*(#H)'\`\h'|\\n:u'
. ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'^\h'|\\n:u'
. ds , \\k:\h'-(\\n(.wu*8/10)',\h'|\\n:u'
. ds ~ \\k:\h'-(\\n(.wu-\*(#H-.1m)'~\h'|\\n:u'
. ds / \\k:\h'-(\\n(.wu*8/10-\*(#H)'\z\(sl\h'|\\n:u'
. \" troff and (daisy-wheel) nroff accents
.ds : \\k:\h'-(\\n(.wu*8/10-\*(#H+.1m+\*(#F)'\v'-\*(#V'\z.\h'.2m+\*(#F'.\h'|\\n:u'\v'\*(#V'
.ds 8 \h'\*(#H'\(*b\h'-\*(#H'
.ds o \\k:\h'-(\\n(.wu+\w'\(de'u-\*(#H)/2u'\v'-.3n'\*(#[\z\(de\v'.3n'\h'|\\n:u'\*(#]
.ds d- \h'\*(#H'\(pd\h'-\w'~'u'\v'-.25m'\f2\(hy\fP\v'.25m'\h'-\*(#H'
.ds D- D\\k:\h'-\w'D'u'\v'-.11m'\z\(hy\v'.11m'\h'|\\n:u'
.ds th \*(#[\v'.3m'\s+1I\s-1\v'-.3m'\h'-(\w'I'u*2/3)'\s-1o\s+1\*(#]
.ds Th \*(#[\s+2I\s-2\h'-\w'I'u*3/5'\v'-.3m'o\v'.3m'\*(#]
.ds ae a\h'-(\w'a'u*4/10)'e
.ds Ae A\h'-(\w'A'u*4/10)'E
. \" corrections for vroff
.if v .ds ~ \\k:\h'-(\\n(.wu*9/10-\*(#H)'\s-2\u~\d\s+2\h'|\\n:u'
.if v .ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'\v'-.4m'^\v'.4m'\h'|\\n:u'
. \" for low resolution devices (crt and lpr)
.if \n(.H>23 .if \n(.V>19 \
.\" ========================================================================
.TH PTKSH 1 "2000-12-30" "Tk800.023" "perl/Tk Documentation"
ptksh \- Perl/Tk script to provide a graphical user interface for testing Perl/Tk
\& ... version information ...
\& ptksh> $b=$mw->Button(-text=>'Hi',-command=>sub{print 'Hi'})
\& ... list of options ...
\& ... help information ...
ptksh is a perl/Tk shell to enter perl commands
interactively. When one starts ptksh a MainWindow
is automaticly created, along with a ptksh command window.
One can access the main window by typing commands using the
variable \f(CW$mw\fR at the 'ptksh> ' prompt of the command window.
ptksh supports command line editing and history. Just type \*(L"<Up>\*(R" at
the command prompt to see a history list. The last 50 commands entered
are saved, then reloaded into history list the next time you start ptksh.
ptksh supports some convenient commands for inspecting Tk widgets. See below.
To exit ptksh use: \f(CW\*(C`exit\*(C'\fR.
ptksh is \fB*not*\fR a full symbolic debugger.
To debug perl/Tk programs at a low level use the more powerful
perl debugger. (Just enter ``O tk'' on debuggers
command line to start the Tk eventloop.)
Press <Up> (the Up Arrow) in the perlwish window to obtain a gui-based history list.
Press <Enter> on any history line to enter it into the perlwish window.
Then hit return. So, for example, repeat last command is <Up><Enter><Enter>.
You can quit the history window with <Escape>. \s-1NOTE:\s0 history is only saved
if exit is \*(L"graceful\*(R" (i.e. by the \*(L"exit\*(R" command from the console or by
quitting all main windows\*(--NOT by interrupt).
.IX Subsection "Debugging Support"
ptksh provides some convenience function to make browsing
in perl/Tk widget easier:
.IP "\fB?\fR, or \fBh\fR" 4
displays a short help summary.
.IP "\fBd\fR ?\fIargs\fR, ...?" 4
Dumps recursively arguments to stdout. (see Data::Dumper).
You must have <Data::Dumper> installed to support this feature.
.IP "\fBp\fR ?\fIarg\fR, ...?" 4
appends \*(L"|\en\*(R" to each of it's arguments and prints it.
If value is \fBundef\fR, '(undef)' is printed to stdout.
.IP "\fBo\fR \fI$widget\fR ?\fI\-option\fR ...?" 4
.IX Item "o $widget ?-option ...?"
prints the option(s) of \fI$widget\fR one on each line.
If no options are given all options of the widget are
listed. See Tk::options for more details on the
format and contents of the returned list.
.IP "\fBo\fR \fI$widget\fR \fB/\fR\fIregexp\fR\fB/\fR" 4
.IX Item "o $widget /regexp/"
Lists options of \fI$widget\fR matching the
regular expression \fIregexp\fR.
.IP "\fBu\fR ?\fIclass\fR?" 4
If no argument is given it lists the modules loaded
by the commands you executed or since the last time you
called \f(CW\*(C`u\*(C'\fR.
If argument is the empty string lists all modules that are
If argument is a string, ``text'' it tries to do a ``use Tk::Text;''.
.IX Subsection "Packages"
Ptksh compiles into package Tk::ptksh. Your code is eval'ed into package
main. The coolness of this is that your eval code should not interfere with
.IX Subsection "Multiline Commands"
ptksh will accept multiline commands. Simply put a \*(L"\e\*(R" character immediately
before the newline, and ptksh will continue your command onto the next line.
.Sh "Source File Support"
.IX Subsection "Source File Support"
If you have a perl/Tk script that you want to do debugging on, try running the
\& -- or (at shell command prompt) --
Then use the perl/Tk commands to try out different operations on your script.
Looks for your .ptksh_history in the directory specified by
the \f(CW$HOME\fR environment variable ($HOMEPATH on Win32 systems).
.IP "\fI.ptksh_init\fR" 4
If found in current directory it is read in an evaluated
after the mainwindow \fI$mw\fR is created. \fI.ptksh_init\fR
can contain any valid perl code.
.IP "\fI~/.ptksh_history\fR" 4
.IX Item "~/.ptksh_history"
Contains the last 50 lines entered in ptksh session(s).
It is best not to use \*(L"my\*(R" in the commands you type into ptksh.
For example \*(L"my \f(CW$v\fR\*(R" will make \f(CW$v\fR local just to the command or commands
entered until <Return> is pressed.
For a related reason, there are no file-scopy \*(L"my\*(R" variables in the
ptksh code itself (else the user might trounce on them by accident).
\&\fBTk::MainLoop\fR function interactively entered or sourced in a
init or script file will block ptksh.
\&\s-1VERSION\s0 2.01 6/18/98
Mike Beller <beller@penvision.com>,
Achim Bohnet <ach@mpe.mpg.de>
Copyright (c) 1996 \- 1998 Achim Bohnet and Mike Beller. All rights reserved.
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
projects / OpenSPARC-T2-DV / blob