view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

    - Add CONTRIBUTING.md, primarily to make MetaCPAN happy.

0.01 2020.09.12
    - Initial release

    - Load and display Perl file
    - Run Perl Tidy with default options.
    - Replace the displayed Perl file with the tidyed version.
    - Command line option to load a Perl file.
    - HTML-based About box
    - Menu items.

lib/App/PerlTidy/Tk.pm  view on Meta::CPAN

        } else {
            $self->{flags}{$name} = 1;
        }
    }
}


sub create_menu {
    my ($self) = @_;

    my $main_menu = $self->{top}->Menu();

    my $file_menu = $main_menu->cascade(-label => 'File', -underline => 0);
    $file_menu->command(-label => 'Open Perl File', -command => sub { $self->show_open(); }, -underline => 0);
    #$file_menu->command(-label => 'Load Config', -command => sub { $self->load_config(); }, -underline => 0);
    $file_menu->command(-label => 'Save Config', -command => sub { $self->save_config(); }, -underline => 0);
    $file_menu->command(-label => 'Quit (Ctrl-q)', -command => sub { $self->exit_app(); }, -underline => 0);

    my $action_menu = $main_menu->cascade(-label => 'Action', -underline => 0);
    $action_menu->command(-label => 'Tidy', -command => sub { $self->run_tidy; });
    $action_menu->command(-label => 'Zoom in (Ctrl-Shift-+)', -command => sub { $self->zoom($zoom); });