File Coverage

lib/Devel/ebug/Wx/Command/ShowFile.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::ShowFile;

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

use Wx qw(:id);

sub commands : Command {
    return
      ( view_menu => { tag      => 'view',
                       label    => 'View',
                       priority => 500,
                      },
        showfile  => { sub      => \&show_file,
	               menu     => 'view',
                       label    => 'Show file',
                       priority => 100,
                       },
        );
}

sub show_file {
    my( $wx ) = @_;
    my $files = [ $wx->ebug->filenames ];
    my $dlg = Wx::SingleChoiceDialog->new
      ( $wx, "File to display", "Choose a file", $files );

    if( $dlg->ShowModal == wxID_OK ) {
        $wx->code_display_service->show_code_for_file( $dlg->GetStringSelection );
    }

    $dlg->Destroy;
}

1;