RE: Colors and other questions

> >> The command in your version would be Tkx::style(...), but 
> note that 
> >> will need to be corrected when you upgrade Perl to 
> >> Tkx::ttk__style(...).
> >>
> >> Jeff
> >>
> > What goes in the parens?  I tried:
> >      Tkx::style("TEntry", -font =>  "courier 10"); But I 
> get an error.  
> > The following does not generate an error, and it works for 
> the button, 
> > but not for the entry:
> >      Tkx::style_configure("TButton", -font =>  "courier 10");
> >      Tkx::style_configure("TEntry", -font =>  "courier 10");
> 
> The latter command style is correct, but for -font, that is a 
> style element for buttons but remains a regular option for 
> ttk::entry, so just create the entry with -font.
> 
> Jeff
> 
How does one know that -font is a style element for buttons and not for
an entry?
If I want to change the font in an entry after it has been created, how
do I do that?

I didn't realize that there were differences like this.  So, back to my
original problem, how do background colors work for an entry?  How can I
change the color on an individual entry widget?

Font and colors for the entry widgets in the following don't change.
How do I change them?

use strict;
use Tkx;
Tkx::package_require("tile");
Tkx::package_require("style");

my $mw = Tkx::widget->new(".");

my $text1 = "entry widget 1";
my $text2 = "2nd entry widget";

my $entry1 = $mw->new_ttk__entry(-width => 20, -textvariable =>
\$text1);
$entry1->configure(-font => "courier 24", -background => "blue");
$entry1->g_grid(-column => 0, -row => 0, -sticky => 'w');

my $entry2 = $mw->new_ttk__entry(-width => 20,
                                 -textvariable => \$text2,
                                 -style => "Dss.TEntry",
                                 -background => "aquamarine");
$entry2->configure(-font => "helvetica 24 bold");
$entry2->g_grid(-column => 0, -row => 1, -sticky => 'w');

my $button = $mw->new_ttk__button(-text => "Push Me");
$button->configure(-command => sub {exit;});
$button->g_grid(-column => 0, -row => 2);

Tkx::style_theme_use("alt");
Tkx::style_configure("TButton", -font => "helvetica 24");
Tkx::style_configure("TEntry", -background => "green", -font => "Courier
10 bold");
Tkx::style_configure("Dss.TEntry", -background => "red", -font =>
"Courier 10");

Tkx::after(3000, sub { AfterDelay(); });

Tkx::MainLoop();


sub AfterDelay
{
    $text2 = "in AfterDelay";
    $button->configure(-text => "Red?");
    Tkx::style_configure("TButton", -font => "helvetica 14 bold");
    Tkx::style_configure("TButton", -background => "red");
    Tkx::style_configure("TEntry", -background => "red");   # does
nothing?
    Tkx::after(3000, sub { AfterDelay2(); });
}

sub AfterDelay2
{
    $text2 = "in AfterDelay2";
    $button->configure(-text => "Done");
    Tkx::style_configure("TButton", -background => "green");
    #Tkx::style_map("TEntry",
    #                -background => ["disabled" => "red", "active" =>
"blue"],
    #                -foreground => ["disabled" => "yellow", "active" =>
"green"]);
    Tkx::style_configure("TEntry", -background => "green");
    Tkx::style("TEntry", -background => "green");
    Tkx::style("Dss.TEntry", -background => "yellow");
}

-- dss