Perl HList: Изменить фон для отдельных предметов

Question

Я пытаюсь предупредить пользователя, что некоторые данные были изменены и должны быть сохранены. Данные отображаются в поле Perl Tk :: HList. Я надеялся, что смогу сделать:

if ($new_item) {
  $HList->add($stock_no,-background=>"red");
}

или даже:

if ($new_item) {
  $HList->itemCreate($stock_no,0,-text=>$stock_no,-background=>"red");
}

но оба бросают

Tk::Error: Bad option `-background' 

Я видел идею использовать ItemStyle, но нет четкого ответа, работает ли он или нет, или это лучшее (и единственное) решение. Есть ли другой способ выделить определенные строки, чтобы предупредить пользователя?

Answer 1

Похоже, это лучший способ изменить фон:

use Tk::ItemStyle; 

my $alert = $mw->ItemStyle('text',-background=>"red");

$HList->itemCreate($stock_no,0,-style=>$alert);

Мне нужно включить этот стиль в каждый элемент, который я добавляю, похоже, не существует способа сделать весьгрести сразу.