Just specify RGB in the format of '#rrggbb', for example, yellow would be '#FFFF00'.
use Tk; use Tk::Tree; use Tk::ItemStyle; use warnings; use strict; my $main = MainWindow->new (-title => "Test tree"); my $tree = $main->ScrlTree(-itemtype => 'text', -separator => '/', -s +crollbars => "osoe"); my $yellow_style = $tree->ItemStyle('text', -refwindow => $tree, -bg = +> '#FFFF00'); my $green_style = $tree->ItemStyle('text', -refwindow => $tree, -bg => + 'green'); $tree->add(1, -text => 'abcd', -itemtype => 'text', -style => $yellow_ +style); $tree->add(2, -text => '1234', -itemtype => 'text', -style => $green_s +tyle); $tree->autosetmode; $tree->close (1); $tree->pack(-fill=>'both',-expand => 1); MainLoop;
In reply to Re^3: Set background on Tk::Tree nodes
by pg
in thread Set background on Tk::Tree nodes
by GrandFather
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |