1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
|
# Copyright (c) 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
chooseColor - pops up a dialog box for the user to select a color.
=for category Popups and Dialogs
=head1 SYNOPSIS
S< >I<$color> = I<$widget>-E<gt>B<chooseColor>?(I<-option>=E<gt>I<value>, ...)?;
=head1 DESCRIPTION
The method B<chooseColor> is implemented as a perl wrapper
on the core tk "command" B<tk_chooseColor>. The I<$widget>
is passed as the argument to B<-parent> described below.
The implementation of internal B<tk_chooseColor> is platform
specific, on Win32 it is a native dialog, and on UNIX/X it is implemented
in terms of L<Tk::ColorEditor|Tk::ColorEditor>.
The core tk command B<tk_chooseColor> pops up a dialog box for the
user to select a color. The following I<option-value> pairs are
possible as command line arguments:
=over 4
=item B<-initialcolor>=E<gt>I<color>
Specifies the color to display in the color dialog when it pops
up. I<color> must be in a form acceptable to the B<Tk_GetColor>
function.
=item B<-parent>=E<gt>$widget
Makes $widget the logical parent of the color dialog. The color
dialog is displayed on top of its parent window.
=item B<-title>=E<gt>I<titleString>
Specifies a string to display as the title of the dialog box. If this
option is not specified, then a default title will be displayed.
=back
If the user selects a color, B<tk_chooseColor> will return the
name of the color in a form acceptable to B<Tk_GetColor>. If the
user cancels the operation, the command will return B<undef>.
=head1 EXAMPLE
$widget->configure(-fg => $parent->chooseColor(-initialcolor => 'gray',
-title => "Choose color"));
=head1 KEYWORDS
color selection dialog
=cut
|
