… | |
… | |
4176 | |
4176 | |
4177 | while (my ($k, $v) = each %{ $self->{item} }) { |
4177 | while (my ($k, $v) = each %{ $self->{item} }) { |
4178 | delete $self->{item}{$k} if $v->{timeout} < $NOW; |
4178 | delete $self->{item}{$k} if $v->{timeout} < $NOW; |
4179 | } |
4179 | } |
4180 | |
4180 | |
|
|
4181 | $self->{timer}->set (1, 1); |
|
|
4182 | |
4181 | my @widgets; |
4183 | my @widgets; |
4182 | |
4184 | |
4183 | my @items = sort { |
4185 | my @items = sort { |
4184 | $a->{pri} <=> $b->{pri} |
4186 | $a->{pri} <=> $b->{pri} |
4185 | or $b->{id} <=> $a->{id} |
4187 | or $b->{id} <=> $a->{id} |