view release on metacpan or  search on metacpan

lib/App/USBKeyCopyCon.pm  view on Meta::CPAN

632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
 
sub remove_key_from_rack {
    my($self, $udi) = @_;
 
    my $key_info = delete $self->current_keys->{$udi} or return;
    $self->key_rack->remove($key_info->{widget});
    return;
}
 
 
sub update_key_progress {
    my($self, $udi, $status) = @_;
 
    $status = -1 if !defined $status or $status < -1 or $status > 10;
 
    my $key_info = $self->current_keys->{$udi} or return;
    $key_info->{status} = $status;
    $key_info->{icon_widget}->set_from_pixbuf(
        App::USBKeyCopyCon::Chrome::usb_icon($status)
    );
}