… | |
… | |
2057 | my ($self) = @_; |
2057 | my ($self) = @_; |
2058 | |
2058 | |
2059 | delete $self->{updater}; |
2059 | delete $self->{updater}; |
2060 | return unless $_[1]; |
2060 | return unless $_[1]; |
2061 | |
2061 | |
2062 | $self->{updater} = AE::timer 0, 1, sub { |
2062 | $self->{updater} = AE::timer 0, 0.7, sub { |
2063 | $self->clear; |
2063 | $self->clear; |
2064 | |
2064 | |
2065 | return unless $CONN; |
2065 | return unless $CONN; |
2066 | |
2066 | |
2067 | my @nums = sort { $b <=> $a } keys %{ $CONN->{ix_recv_buf} }; |
2067 | my @nums = sort { $b <=> $a } keys %{ $CONN->{ix_recv_buf} }; |
|
|
2068 | return unless @nums; |
2068 | |
2069 | |
2069 | $self->add_at (0, 0, new DC::UI::Label align => 1, text => "Face"); |
2070 | $self->add_at (0, 0, new DC::UI::Label align => 1, text => "Face"); |
2070 | $self->add_at (1, 0, new DC::UI::Label align => 0, text => "Octets/Total"); |
2071 | $self->add_at (1, 0, new DC::UI::Label align => 0, text => "Octets/Total"); |
2071 | |
2072 | |
2072 | for my $row (0 .. $#nums) { |
2073 | for my $row (0 .. $#nums) { |