File Coverage

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

Criterion	Covered	Total	%
statement	9	34	26.4
branch	0	10	0.0
condition	0	3	0.0
subroutine	3	8	37.5
pod	0	1	0.0
total	12	56	21.4

package Devel::ebug::Wx::Command::NotebookEdit;

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

sub command : Command {
    my( $class, $wxebug ) = @_;

    return ( 'edit_notebook',
             { sub         => \&_edit_notebook,
               menu        => 'view',
               update_menu => \&_update_edit_notebook,
               label       => 'Edit notebooks',
               priority    => 300,
               },
             );
}

sub _notebooks {
    my( $vm ) = @_;

    my @nbs = sort { $a->description cmp $b->description }
              grep $_->isa( 'Devel::ebug::Wx::View::Notebook' ),
                   $vm->active_views_list;
    return @nbs;
}

sub _valid_views {
    my( $vm ) = @_;

    my @views;
    foreach my $view ( $vm->views ) {
        next if $vm->is_shown( $view->tag );
        next if $view->isa( 'Devel::ebug::Wx::View::Notebook' );
        push @views, $view;
    }

    return @views;
}

sub _edit_notebook {
    my( $wx ) = @_;
    my $vm = $wx->view_manager_service;
    my @nbs = _notebooks( $vm );
    my $nb_index = Wx::GetSingleChoiceIndex
      ( 'Choose the notebook you want to add views to',
        'Choose a notebook', [ map $_->description, @nbs ], $wx );
    return if $nb_index < 0;
    my @views = _valid_views( $vm );
    my @chs = Wx::GetMultipleChoices
      ( 'Choose the views to be added to ' . $nbs[$nb_index]->description ,
        'Choose views',
        [ map $_->description, @views ], $wx );
    return unless @chs;

    $nbs[$nb_index]->add_view( $views[$_] ) foreach @chs;
}

sub _update_edit_notebook {
    my( $wx, $event ) = @_;

    my $vm = $wx->view_manager_service;
    $event->Enable( _notebooks( $vm ) && _valid_views( $vm ) ? 1 : 0 );
}

1;