/usr/local/CPAN/Padre-Plugin-HG/Padre/Plugin/HG/DiffView.pm

• package Padre::Plugin::HG::DiffView
  • showDiff
  • _get_selected_items
  • _populate_list
• EOF

package Padre::Plugin::HG::DiffView;
use strict;
use Padre::Wx;
use Padre::Wx::Icon;
use Wx::Event qw( EVT_BUTTON );
our @ISA     = 'Wx::Dialog';


my $images = Wx::ImageList->new( 16, 16 );
        my $file_types = {
                M => $images->Add(
	                        Wx::ArtProvider::GetBitmap( 'wxART_TIP', 'wxART_OTHER_C', [ 16, 16 ] ),
                ),
                dir => $images->Add(
                        Wx::ArtProvider::GetBitmap( 'wxART_FOLDER', 'wxART_OTHER_C', [ 16, 16 ] ),
                ),
                C => $images->Add(
                        Wx::ArtProvider::GetBitmap( 'wxART_TICK_MARK', 'wxART_OTHER_C', [ 16, 16 ] ),
                ),
                '?' => $images->Add(
                        Wx::ArtProvider::GetBitmap( 'wxART_MISSING_IMAGE', 'wxART_OTHER_C', [ 16, 16 ] ),
                ),
          };


sub showDiff
{
	my ($class, $hg, $diffString) = @_;
	
		my $self = $class->SUPER::new(
		undef,
		-1,
		'Padre Mecurial Commit',
		Wx::wxDefaultPosition,
		Wx::wxDefaultSize,
		Wx::wxDEFAULT_FRAME_STYLE | Wx::wxTAB_TRAVERSAL,
		
	);
	$self->{hg} = $hg;
	$self->SetIcon(Padre::Wx::Icon::PADRE);
	my $sizer = Wx::BoxSizer->new(Wx::wxVERTICAL);
	my $sizer2 = Wx::BoxSizer->new(Wx::wxHORIZONTAL);
	$self->{diff_box} = Wx::TextCtrl->new($self, -1, ,'',Wx::wxDefaultPosition,
	Wx::wxDefaultSize,Wx::wxTE_READONLY|Wx::wxTE_MULTILINE, Wx::wxDefaultValidator, 'diffBox');
    
        #insert the HG data
        chdir ($self->{hg}->{project_path});
        my @hgdata = split(/\n/, $diffString);
        #my @filestatus =  $self->{hg}->_get_hg_files(@hgdata);
     
	$self->_populate_list( \@hgdata);

	


	my $ok_button = Wx::Button->new($self, 
						1,                  # id
						"OK", # label
						[50,50]             # position
                                       );


	#Handle the Button Clicks
	

             
	EVT_BUTTON( $ok_button, 
             1,
              sub{$self->Close(); return} 
             );

    $sizer->Add($self->{diff_box}, 1, Wx::wxEXPAND, 10);
    $sizer2->Add($ok_button, 0, Wx::wxALL, 10);
    $sizer->Add($sizer2, 0, Wx::wxEXPAND, 10);
    $self->SetSizer($sizer);
    $self->SetAutoLayout(1);
    $self->ShowModal(); 
}


sub _get_selected_items
{
	my( $self, $event ) = @_; 

	# Change the contents of $self->{txt}
	
	my $file_list;
	#$self->{txt}->SetLabel("The button was clicked!"); 
	my $item = -1;
	 while ( 1 ==1 )
	{
        $item = $self->{file_listbox}->GetNextItem($item,
                                     Wx::wxLIST_NEXT_ALL,
                                     Wx::wxLIST_STATE_SELECTED);
        if ( $item == -1 )
        {
            last;
	}
        # this item is selected - do whatever is needed with it
        my $itemObj = $self->{file_listbox}->GetItem($item);
        $file_list .= ' "'.$itemObj->GetText().'" ';
       
    }
    
    $self->{hg}->vcs_commit($file_list, $self->{hg}->{project_path});
    $self->Close();
}

sub _populate_list
{
 my ($self, $lines) = @_;
 
 if (!$lines) {return}
 foreach my $line (@$lines)
 {
	if ($line =~ /^\+/)
	{
                $self->{diff_box}->SetDefaultStyle(Wx::TextAttr->new(Wx::Colour->new('sea green')));

	}
	elsif ($line =~ /^\-/)
	{
		$self->{diff_box}->SetDefaultStyle(Wx::TextAttr->new(Wx::Colour->new('red')));
	}
	else
	{
		$self->{diff_box}->SetDefaultStyle(Wx::TextAttr->new(Wx::Colour->new('black')));
	}
	$self->{diff_box}->AppendText($line."\n");

 }	
	
}