Hallo Schnuck,
ich hatte mal ein ähnliches Problem.
Generell kann man mit
$style->configure( -background => "yellow" ); einzelne Attribute verändern. Problem dabei ist, dass sich (so war es zumindest bei mir) dann nicht nur die neu erzeugten Items so darstellen, sondern alle mit diesem Style erzeugten Items geändert wurden.
Dieses Problem zu umgehen, habe ich wie folgt gelöst:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
use strict;
use warnings;
use Tk;
use Tk::ItemStyle;
use Tk::Hlist;
my $mw = MainWindow->new();
my $table = $mw->Scrolled( "HList",
-header => 1,
-columns => 1,
)->pack();
$table->header('create', 0, -text => 'Text');
for (my $cnt = 0; $cnt < 5; $cnt++)
{
$table->add($cnt);
$table->itemCreate($cnt, 0, -text => $cnt, -style => $mw->ItemStyle('text', -background => "lightblue"));
if ( $cnt % 2 == 0 ) { $table->itemCget($cnt, 0, -style)->configure( -background => "yellow" ); }
}
MainLoop;
Jemand zu Hause?![[twitter]](/battie/theme/default/icons/twitter.gif){kind=icon}
+4 replies
Font
use strict; use warnings;
Blog
Preferences![[feed]](/battie/theme/default/icons/feed.png){kind=icon}
Tags:
![[Powered by Battie]](/battie/img/powered.png)
