Changeset 7479

Timestamp:

08/23/09 03:53:16 (2 years ago)

Author:

waxhead

Message:

Added "Blame" to the SVN plugin.

Cleaned up some more code.

File:

• branches/Padre-Plugin-SVN-waxhead/lib/Padre/Plugin/SVN.pm (modified) (5 diffs)

branches/Padre-Plugin-SVN-waxhead/lib/Padre/Plugin/SVN.pm

@@ -110 +110 @@
             'Project' => sub { $self->svn_commit_project },
         ],
+        'Blame' => [
+            'File'  => sub { $self->svn_blame },
+        ],
         'Status...' => [
             'File'    => sub { $self->svn_status_of_file },
@@ -165 +168 @@
         return;
     }
+}
+
+sub svn_blame {
+    my( $self ) = @_;
+    my $filename = _get_current_filename();
+    if ($filename) {
+        my $main = Padre::Current->main;
+        $self->{_busyCursor} = Wx::BusyCursor->new();
+        my $file = svn_file($filename);
+        $file->blame();
+        $self->{_busyCursor} = undef;
+        my $blame = join( "\n", @{$file->stdout} );
+        require Padre::Plugin::SVN::Wx::SVNDialog;
+        my $dialog = Padre::Plugin::SVN::Wx::SVNDialog->new($main, $filename, $blame, 'Blame');
+        $dialog->Show(1);
+        return 1;
+    }
+    
+    return;
+    
 }
 
@@ -293 +316 @@
         my $file = svn_file($filename);
         my $diff = $file->diff;
-        #$main->on_new();
-        #my $doc = Padre::Document->new();
         my $diff_str = join( "\n", @{$file->stdout} );
         $main->new_document_from_string($diff_str);
-        #$main->on_new();
-        # get the last id created - assume new is created at the end
-        #my @ids = $main->pageids;
-        #my @docs = $main->documents;
-        #print "pageids: " . join( ",", @ids ) . "\n";
-        #print "docs: " . join( ",", @docs ) . "\n";
-        #print "last element is: " . $ids[-1] . "\n";
-        #my $doc = $docs[$ids[-1]];
-        #$doc->text_set($diff_str);
         return 1;
     }
@@ -354 +366 @@
         
         #$message = "\"" .  $message . "\"";
-        print "This is the commit message: $message";
+        # print "This is the commit message: $message";
         
         # here's how:
@@ -375 +387 @@
         $self->{_busyCursor} = undef;
     }
-
-    # show that the file was committed
     
     return;