Perl HList: Change -background для отдельных элементов

Question

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

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); 

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