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;
[download]

Thanks

---

---

• Are you posting in the right place? Check out Where do I post X? to know for sure.
• Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:

  <code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>

• Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
• Want more info? How to link or How to display code and escape characters are good places to start.