view release on metacpan or  search on metacpan

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

    $self->blank_tags(SDL::Rect->new(-width=>$self->width, -height=>16, -y=>680, -x=>0));
    $self->blank_stars(SDL::Rect->new(-width=>$self->width, -height=>30, -y=>696, -x=>0));

    my $event = $self->event;
    
    $self->draw_image;
    while (1) {
        MAIN: while ($event->poll) {
            my $type = $event->type();
            exit if ($type == SDL_QUIT);
            exit if ($type == SDL_KEYDOWN && $event->key_name() eq 'escape');
        
            my $key = $event->key_name();
            if ($type == SDL_KEYDOWN && !$app->tagging) {
                given($key) {
                    when (['n','return']) {
                        $app->_lasttags($app->current_image->tags);
                        $app->_laststar($app->current_image->stars);
                        $app->next_image;
                        $self->draw_image;
                    }