Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

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;
Thanks

Comment on Initalizing custom colors with perl/tk
Download Code
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?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://297284]
Approved by Courage
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (10)
As of 2014-09-17 19:11 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (95 votes), past polls