chooseColor - pops up a dialog box for the user to select a color.
$color = $widget->chooseColor?(-option=>value, ...)?;
The method chooseColor is implemented as a perl wrapper on the core tk ``command'' tk_chooseColor. The $widget is passed as the argument to -parent described below. The implementation of internal tk_chooseColor is platform specific, on Win32 it is a native dialog, and on UNIX/X it is implemented in terms of Tk::ColorEditor.
The core tk command tk_chooseColor pops up a dialog box for the user to select a color. The following option-value pairs are possible as command line arguments:
If the user selects a color, tk_chooseColor will return the name of the color in a form acceptable to Tk_GetColor. If the user cancels the operation, the command will return undef.
$widget->configure(-fg => $parent->chooseColor(-initialcolor => 'gray', -title => "Choose color"));
color selection dialog