--- trunk/lib/Frey/Class/Refactor/Modify.pm	2008/12/10 13:55:38	788
+++ trunk/lib/Frey/Class/Refactor/Modify.pm	2008/12/10 13:56:43	789
@@ -51,6 +51,9 @@
 	my $from_path = $self->from;
 	$from_path =~ s{::}{/}g;
 
+	my @commit;
+	my $message;
+
 	foreach my $selected ( @{ $self->selected } ) {
 		warn "# selected ", $self->dump( $selected );
 		my $path = $self->path->[$selected] || die "no $selected path in ", $self->dump( $self->path );
@@ -67,28 +70,49 @@
 
 		$content[ $line ] =~ s{\Q$from\E}{$to}s;
 		$self->write_file( $content_path, @content );
-	
+		push @commit, $content_path;
+		$message ||= ref($self) . " $from -> $to";
+
 		$html .= qq|<li>$line $from -&gt; $to <tt>| . $self->html_escape( $content[$line] ) . qq|</tt></li>|;
 	}
 
 	$html .= qq|</ul>|;
 
-	$html .= qq|
-		<div class="frey-notice">
-		<a target="Frey::SVK" href="/Frey::SVK/as_markup">Verify and commit changes</a>
-		and execute following commands to rename classes in file system:
-		</div>
+	my $notice = qq|
+		<a target="Frey::SVK" href="/Frey::SVK/as_markup">diff</a>
+		<a target="Frey::Test::Runner" href="/Frey::Test::Runner/as_markup">test</a>
 	|;
 
+	my $shell;
+
+	$shell .= qq|svk commit -m "$message" | . join(' ', @commit) . qq|\n| if @commit;
+
+	@commit = ();
+
 	foreach my $old ( keys %$rename ) {
 		my $to = $rename->{$old};
 		$to =~ s{::}{/}g;
 		my $new = $old;
 		$new =~ s{$from_path}{$to};
-		$html .= qq|<pre>svk mv $old $new\n</pre>|;
+		$shell .= qq|svk mv $old $new\n|;
+		push @commit, $old;
+		push @commit, $new;
 	}
 
-	$html;
+	$shell .= qq|svk commit -m "$message" | . join(' ', @commit) . qq|\n| if @commit;
+
+	$notice .= qq|
+		<br>all in one commit and rename:
+		<pre>$shell</pre>
+	| if $shell;
+
+	$html .= qq|
+		<div class="frey-info">
+		$notice
+		</div>
+	| if $notice;
+
+	return $html;
 }
 
 1;