… | |
… | |
405 | sub check_size { |
405 | sub check_size { |
406 | my ($self) = @_; |
406 | my ($self) = @_; |
407 | |
407 | |
408 | $self->_check_size; |
408 | $self->_check_size; |
409 | return; |
409 | return; |
|
|
410 | #TODO: but needs a vastly more difficult algorithm |
410 | my $check_size = $CFClient::UI::ROOT->{_check_size} ||= {}; |
411 | my $check_size = $CFClient::UI::ROOT->{_check_size} ||= {}; |
411 | |
412 | |
412 | $check_size->{$self} = $self; |
413 | $check_size->{$self} = $self; |
413 | |
414 | |
414 | $CFClient::UI::ROOT->on_refresh (_check_size => sub { |
415 | $CFClient::UI::ROOT->on_refresh (_check_size => sub { |