From 9fc19ef8e2dcd8bcf6a1d034b95c1de2b88e485c Mon Sep 17 00:00:00 2001 From: Siep Kroonenberg Date: Thu, 17 Feb 2011 15:05:13 +0000 Subject: New tlperl part II git-svn-id: svn://tug.org/texlive/trunk@21424 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/tlperl/lib/Tk/Dialog.pod | 107 ++++++++++++++++++++++++++++++++++ 1 file changed, 107 insertions(+) create mode 100644 Master/tlpkg/tlperl/lib/Tk/Dialog.pod (limited to 'Master/tlpkg/tlperl/lib/Tk/Dialog.pod') diff --git a/Master/tlpkg/tlperl/lib/Tk/Dialog.pod b/Master/tlpkg/tlperl/lib/Tk/Dialog.pod new file mode 100644 index 00000000000..871206d504c --- /dev/null +++ b/Master/tlpkg/tlperl/lib/Tk/Dialog.pod @@ -0,0 +1,107 @@ +# Copyright (c) 1992 The Regents of the University of California. +# Copyright (c) 1994-1996 Sun Microsystems, Inc. +# See the file "license.terms" for information on usage and redistribution +# of this file, and for a DISCLAIMER OF ALL WARRANTIES. +# +# + +=head1 NAME + +Tk::Dialog - Create modal dialog and wait for a response. + +=for pm Tk/Dialog.pm + +=for category Popups and Dialogs + +=head1 SYNOPSIS + +S< >I<$dialog> = I<$parent>-EB(I<-option> =E I, ... ); + +=head1 DESCRIPTION + +This procedure is part of the Tk script library - its arguments +describe a dialog box. After creating a dialog box, B waits +for the user to select one of the Buttons either by clicking on the +Button with the mouse or by typing return to invoke the default Button +(if any). Then it returns the text string of the selected Button. + +While waiting for the user to respond, B sets a local +grab. This prevents the user from interacting with the application +in any way except to invoke the dialog box. See the B method. + +=head1 OPTIONS + +The following option/value pairs are supported: + +=over 4 + +=item B<-title> + +Text to appear in the window manager's title bar for the dialog. + +=item B<-text> + +Message to appear in the top portion of the Dialog. + +=item B<-bitmap> + +If non-empty, specifies a bitmap to display in the top portion of the +Dialog, to the left of the text. If this is an empty string then no +bitmap is displayed in the Dialog. + +=item B<-default_button> + +Text label string of the Button that displays the default ring. + +=item B<-buttons> + +A reference to a list of Button label strings. Each I +specifies text to display in a Button, in order from left to right. + +=back + +=head1 METHODS + +=over 4 + +=item I<$answer> = $dialog-EB?-global?B<)>; + +This method displays the Dialog, waits for the user's response, and stores +the text string of the selected Button in I<$answer>. If I<-global> is +specified a global (rather than local) grab is performed. + +The actual Dialog is shown using the B method. Any other +options supplied to B are passed to B, and can be used to +position the Dialog on the screen. Please read Tk::Popup for details. + +=back + +=head1 ADVERTISED WIDGETS + +Because Tk::Dialog is a subclass of Tk::DialogBox it inherits all the +advertised subwidgets of its superclass: e.g. "B_button-text", where +'button-text' is a Button's -text value. Additionally, Tk::Dialog +advertises: + +=over 4 + +=item B + +The dialog's Label widget containing the message text. + +=item B + +The dialog's Label widget containing the bitmap image. + +=back + +=head1 EXAMPLE + +I<$dialog> = I<$mw>-EB(-text =E 'Save File?', -bitmap =E 'question', -title =E 'Save File Dialog', -default_button =E 'Yes', -buttons =E [qw/Yes No Cancel/); + +=head1 KEYWORDS + +bitmap, dialog, modal, messageBox + +=cut + -- cgit v1.2.3