view release on metacpan or  search on metacpan

lib/LPDS/Renderer.pm  view on Meta::CPAN

    say "after deletion: ";
    foreach my $model (@{$self->models}) {
        my $name = $self->data->get($model->get_iter,COL_NAME);
        say "\t$name";
    }

    # update axis ticks
    $self->update_all_axis;
}

sub update_axis {
    my $self = shift;
    my $name = shift;
    confess "no axis named $name" if !exists $self->axes->{$name};
    my $axis = $self->axes->{$name};

    my %extreme;    # mode => [min,max]
    
    foreach my $mode ( @{ $axis->modes } ) {
        my @values;
        foreach my $model ( @{ $self->models } ) {

lib/LPDS/Renderer.pm  view on Meta::CPAN

            $extreme{$mode} = [ $values[0], $values[0] ];
        }
        else {
            $extreme{$mode} = [ undef, undef ];
        }
    }
    
    $axis->try_modify_min_max(%extreme);
}

sub update_all_axis {
    my $self = shift;
    $self->update_axis($_) foreach keys %{ $self->axes };
}

sub request_model_render {
    my $self = shift;
    foreach my $model ( @{ $self->models } ) {
        $model->need_render(1);
    }
}