Commits

Anonymous committed 2aa1943

Added Busy Cursor when Commands in progress

Comments (0)

Files changed (1)

lib/Padre/Plugin/HG.pm

 {
 	my ($self, $command, $dir) = @_;
 	print "Command $command\n";
+	my $busyCursor = Wx::BusyCursor->new();
 	my $result = capture_merged(sub{chdir($dir);system($command)});
+	$busyCursor = undef;
 	return $result;
 }