my $bg = ($c->itemconfigure(qw/current -background/))[4];