File Coverage

lib/Devel/ebug/Wx/Command/Standard.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

package Devel::ebug::Wx::Command::Standard;

use strict;
use Devel::ebug::Wx::Plugin qw(:plugin);

use Wx qw(wxOK wxVERSION_STRING);

sub commands : Command {
    return
      ( file_menu => { tag      => 'file',
                       label    => 'File',
                       priority => 0,
                       },
        help_menu => { tag      => 'help',
                       label    => 'Help',
                       priority => 10000,
                       },
        load_file => { sub      => \&load_file,
                       menu     => 'file',
                       label    => 'Load file',
                       priority => 10,
                       },
        quit      => { sub      => \&quit,
                       menu     => 'file',
                       label    => 'Exit',
                       priority => 1000,
                       },
        about     => { sub   => \&about,
                       menu  => 'help',
                       label => 'About...',
                       },
        );
}

sub quit {
    my( $wx ) = @_;

    $wx->Close;
}

sub about {
    my( $wx ) = @_;

    my $message = sprintf <
ebug_wx %s, (c) 2007 Mattia Barbon
wxPerl %s, %s
EOT
        Devel::ebug::Wx->VERSION, $Wx::VERSION, wxVERSION_STRING;
    Wx::MessageBox( $message, "About wxebug", wxOK, $wx );
}

sub load_file {
    my( $wx ) = @_;
    # FIXME better file selector, add arguments
    my $file = Wx::FileSelector( "Select a Perl file" );
    if( defined $file ) {
        $wx->ebug->load_program( [ $file ] );
    }
}

1;