Initalizing custom colors with perl/tk

[zemplen]

I am in the process of developing a perl/tk application. The end user is required to select colors. For that purpose I use choosecolor. The choose color dialog box that appears has slots for 16 custom colors and the "Define Custom Colors" button is inactive. I would like to initalize these slots with my own custom colors so that they are available for selection when the dialog box appears. The command line options for this widget do not include an option for setting an initial value for custom colors and there seems to be no method available to do this. The documentation states: The implementation of internal tk_chooseColor is platform specific, on Win32 it is a native dialog. This application is run under Win32.

use Tk;

$main = new MainWindow ();

$rgb = $main->chooseColor( -initialcolor => "#dfdfdf", -title => "Choo
+se color");

MainLoop;

Thanks

[PodMaster]

Theoretically you could do it with the help of some of the Win32 modules (like Win32::API,Win32::GuiTest), but don't bother, simply make do with either Tk::ColourChooser or Tk::ColorEditor (or better yet, extend one of 'em).