view release on metacpan or  search on metacpan

lib/App/Fotagger/Display/SDL.pm  view on Meta::CPAN

                $image->tags($tags);
                $self->draw_tags($image);
            }
        }
    }
}

sub draw_image {
    my $self = shift;
    my $image = $self->app->current_image;
    my $frame = SDL::Surface->new( -name => $image->file );
    my $factor = $self->width/$image->width;

    SDL::Tool::Graphic->zoom($frame,$factor,$factor);

    $frame->blit( undef, $self->window, undef );

    my $blank = new SDL::Rect(-width=>500, -height=>20, -y=>730, -x=>0);
    $self->window->fill($blank,$self->black);
    $self->window->update($blank);
    $self->font->print($self->window, 5, $self->height-15, sprintf("File: %s (%s)",$image->file,$image->create_date));

    $self->draw_tags($image);
    $self->draw_stars($image);

    if ($image->deleted) {