view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

    - Automatically run deparse when code is changed.

0.01 2020.10.17
    - Initial release

    - Show a defaults Perl code
    - Allow the user to type in different code.
    - Rub B::Deparse on the code and show in the other display.
    - Options -d, -p. -q, -P are working.
    - HTML-based About box
    - Menu items.

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

    $self->create_app;
    $self->{incode}->insert("0.0", $sample);
    $self->deparse;

    return $self;
}

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 => 'Quit (Ctrl-q)', -command => sub { $self->exit_app(); }, -underline => 0);

    my $about_menu = $main_menu->cascade(-label => 'Help', -underline => 0);
    $about_menu->command(-label => 'About', -command => sub { $self->show_about; }, -underline => 0);

    $self->{top}->configure(-menu => $main_menu);
}