List Item Problem!!!!Urgent

Question

Hi..
Items:
List5 : list item
List6 : list item
Two visaul attributes: default,color.
I ahve problem when using the code(down),when i click on each element in list it
highlight it,but problem when I scroll down in the list it highligh all elements.so wha is the problem,whay it highlight all elements???Thanks for help
TRIGGER : WHEN-LIST-CHANGED
declare
total_list_count number;
i number;
double number;
begin
double := 0;
i := 1;
total_list_count := Get_List_Element_Count('list6') + 1;
while i < total_list_count loop
if :list5 = Get_List_Element_value('list6',i) then
     double := 1;
     delete_list_element('list6',i);
end if;
exit when double = 1;
i := i + 1;
end loop;
if double = 0 then
total_list_count := Get_List_Element_Count('list6');
total_list_count := total_list_count+1;
Add_List_Element('list6',total_list_count,:LIST5,:list5);
Set_Item_Property('list5',VISUAL_ATTRIBUTE,'color');
else
     Set_Item_Property('list5',VISUAL_ATTRIBUTE,'DEFAULT');
end if;
end;

Answer 1

THe most user-friendly way would be to remove elements from all other lists when they are chosen once. You would have to have a WHEN-LIST-CHANGED-trigger on all listitem and populate the the listitems accordingly.