view release on metacpan or  search on metacpan

lib/Kephra/App/SearchBar.pm  view on Meta::CPAN

    ($start_pos, $end_pos) = $ed->GetSelection;
    $pos > -1;
}


sub line_nr_around {
    my ($self) = @_;
    my $line_nr = $self->GetCurrentLine
}

sub update_flags {
    my ($self) = @_;
    $self->{'flags'} = (&Wx::wxSTC_FIND_MATCHCASE * $self->{'case'}->GetValue )
                     | (&Wx::wxSTC_FIND_WHOLEWORD * $self->{'word'}->GetValue )
                     | (&Wx::wxSTC_FIND_WORDSTART * $self->{'start'}->GetValue)
                     | (&Wx::wxSTC_FIND_REGEXP    * $self->{'regex'}->GetValue);
}



1;

lib/Kephra/App/Window/Menu.pm  view on Meta::CPAN

    Wx::Event::EVT_MENU( $win, 16340 + $_, eval 'sub { $win->{editor}->set_zoom_level('.$_.')}') for @zoom_range;
    Wx::Event::EVT_MENU( $win, 16410, sub { $win->toggle_full_screen           });
    Wx::Event::EVT_MENU( $win, 16420, sub { $win->{'editor'}->toggle_view_line_wrap      });
    Wx::Event::EVT_MENU( $win, 16430, sub { $win->{'editor'}->toggle_view_caret_line     });
#    Wx::Event::EVT_MENU( $win, 15100, sub { Kephra::App::Dialog::documentation( $win ) });
#    Wx::Event::EVT_MENU( $win, 15200, sub { Kephra::App::Dialog::keymap($win)  });
    Wx::Event::EVT_MENU( $win, 17500, sub { Kephra::App::Dialog::about( $win)  });
}

sub update_recent_files_menu {
    my ($win, $closed_file) = @_;
    my $recent_files = $win->config->get_value('file', 'closed');
    return unless ref $recent_files eq 'ARRAY';
    if (defined $closed_file and $closed_file){
        unshift @$recent_files, $closed_file;
        for my $i (reverse 1 .. $#$recent_files){
            splice( @$recent_files, $i, 1) if $recent_files->[$i] eq $closed_file;
        }
    }
    my $start_menu_ID = 11300;