.\" Automatically generated by Pod::Man v1.37, Pod::Parser v1.32
.\"
.\" Standard preamble:
.\" ========================================================================
.de Sh \" Subsection heading
.br
.if t .Sp
.ne 5
.PP
\fB\\$1\fR
.PP
..
.de Sp \" Vertical space (when we can't use .PP)
.if t .sp .5v
.if n .sp
..
.de Vb \" Begin verbatim text
.ft CW
.nf
.ne \\$1
..
.de Ve \" End verbatim text
.ft R
.fi
..
.\" 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<>.
.tr \(*W-|\(bv\*(Tr
.ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
.ie n \{\
.    ds -- \(*W-
.    ds PI pi
.    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
.    ds L" ""
.    ds R" ""
.    ds C` ""
.    ds C' ""
'br\}
.el\{\
.    ds -- \|\(em\|
.    ds PI \(*p
.    ds L" ``
.    ds R" ''
'br\}
.\"
.\" 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.
.if \nF \{\
.    de IX
.    tm Index:\\$1\t\\n%\t"\\$2"
..
.    nr % 0
.    rr F
.\}
.\"
.\" For nroff, turn off justification.  Always turn off hyphenation; it makes
.\" way too many mistakes in technical documents.
.hy 0
.if n .na
.\"
.\" 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
.if n \{\
.    ds #H 0
.    ds #V .8m
.    ds #F .3m
.    ds #[ \f1
.    ds #] \fP
.\}
.if t \{\
.    ds #H ((1u-(\\\\n(.fu%2u))*.13m)
.    ds #V .6m
.    ds #F 0
.    ds #[ \&
.    ds #] \&
.\}
.    \" simple accents for nroff and troff
.if n \{\
.    ds ' \&
.    ds ` \&
.    ds ^ \&
.    ds , \&
.    ds ~ ~
.    ds /
.\}
.if t \{\
.    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 \
\{\
.    ds : e
.    ds 8 ss
.    ds o a
.    ds d- d\h'-1'\(ga
.    ds D- D\h'-1'\(hy
.    ds th \o'bp'
.    ds Th \o'LP'
.    ds ae ae
.    ds Ae AE
.\}
.rm #[ #] #H #V #F C
.\" ========================================================================
.\"
.IX Title "Popup 3"
.TH Popup 3 "2007-02-10" "perl v5.8.8" "User Contributed Perl Documentation"
.SH "NAME"
Tk::Wm::Popup \- popup dialog windows.
.SH "SYNOPSIS"
.IX Header "SYNOPSIS"
.Vb 5
\& $dialog->Popup(qw/
\&     -popover    => 'cursor' | $widget | undef,
\&     -overanchor => c | n | ne | e | se | s | sw | w | nw,
\&     -popanchor  => c | n | ne | e | se | s | sw | w | nw,
\& /);
.Ve
.SH "DESCRIPTION"
.IX Header "DESCRIPTION"
You've probably had occasion to use a Dialog (or DialogBox)
widget. These widgets are derived from a Toplevel (which is a subclass
of Tk::Wm, the window manager) and spend most of their time in a
withdrawn state. It's also common to use Toplevels as containers for
custom built popup windows.  Menus, too, are dialogs derived from the
window manager class. For this discussion, we'll use the simple term
\&\fIdialog\fR to refer any widget that pops up and awaits user
interaction, whether it be a Menu, a special purpose Toplevel, or any
of the dialog-type widgets, including, but not limited to, ColorEditor,
Dialog, DialogBox, ErrorDialog, FileSelect, FBox, getOpenFile and
getSaveFile.
.PP
When it's time to display these dialogs, we call the Perl/Tk
window manager \fBPopup\fR method. \fBPopup\fR accepts three special purpose
options that specify placement information in high-level terms rather
than numerical coordinates. It is \fBPopup\fR's responsibility to take
our human specifications and turn them into actual screen
coordinates before displaying the dialog.
.PP
We can direct the dialog to appear in two general locations, either
over another window (e.g. the root window (screen) or a particular
widget), or over the cursor. This is called the \fIpopover
location\fR. Once we've made this decision we can further refine the
exact placement of the dialog relative to the popover location by
specifying the intersection of two \fIanchor points\fR. The \fIpopanchor
point\fR is associated with the dialog and the \fIoveranchor point\fR is
associated with the popover location (whether it be a window or the
cursor). The point where the two anchor points coincide is the \fIpopup
locus\fR. Anchor points are string values and can be \fIc\fR (for center),
or any of the eight cardinal compass points: \fIn\fR, \fIne\fR, \fIe\fR, \fIse\fR,
\&\fIs\fR, \fIsw\fR, \fIw\fR or \fInw\fR.
.PP
For example, if \fI\-popover\fR specifies a widget, \fI\-popanchor\fR is \fIsw\fR,
and \fI\-overanchor\fR is \fIne\fR, the the dialog's southwest corner pops up
at the widget's northeast corner.
.SH "OPTIONS"
.IX Header "OPTIONS"
The options recognized by \fBPopup\fR are as follows:
.IP "\fB\-popover\fR" 4
.IX Item "-popover"
Specifies whether the dialog \*(L"pops over\*(R" a window or the cursor. 
It may be the string \fIcursor\fR, a widget reference, or undef for the 
root window.
.IP "\fB\-popanchor\fR" 4
.IX Item "-popanchor"
Specifies the anchor point of the dialog.  For instance, if \fIe\fR is
specified, the right side of the dialog is the anchor.
.IP "\fB\-overanchor\fR" 4
.IX Item "-overanchor"
Specifies where the dialog should anchor relative to the popover
location. For instance, if \fIe\fR is specified the dialog appears over
the right side of the popover location and if it's \fIne\fR the the
dialog is positioned at the upper-right corner of the popover location.
.SH "AUTHOR"
.IX Header "AUTHOR"
Nick Ing\-Simmons, Steve Lidie
.PP
This code is distributed under the same terms as Perl.