Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?

Initalizing custom colors with perl/tk

by zemplen (Novice)
on Oct 07, 2003 at 13:34 UTC ( #297284=perlquestion: print w/replies, xml ) Need Help??
zemplen has asked for the wisdom of the Perl Monks concerning the following question:

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;

Replies are listed 'Best First'.
Re: Initalizing custom colors with perl/tk
by PodMaster (Abbot) on Oct 07, 2003 at 13:47 UTC
    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).

    MJD says "you can't just make shit up and expect the computer to know what you mean, retardo!"
    I run a Win32 PPM repository for perl 5.6.x and 5.8.x -- I take requests (README).
    ** The third rule of perl club is a statement of fact: pod is sexy.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://297284]
Approved by Courage
and the fire pops...

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (6)
As of 2018-02-21 19:54 GMT
Find Nodes?
    Voting Booth?
    When it is dark outside I am happiest to see ...

    Results (287 votes). Check out past polls.