view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

13
14
15
16
17
18
19
20
21
22
23
    - 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

99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
        } 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); });