--- trunk/lib/Frey/Web.pm	2008/11/20 12:56:37	476
+++ trunk/lib/Frey/Web.pm	2008/11/20 14:39:43	480
@@ -194,10 +194,15 @@
 		. qq|</code></span>|
 		if $self->warnings;
 
+	my	($exit,$description) = ('exit','stop server');
+		($exit,$description) = ('restart','restart server')
+		if $ENV{FREY_RESTART}; # tune labels on exit link
+
 	my $right =
 		qq|
 			<span class="right">
-			<a href="?reload=$reload_counter"><code>$url</code></a>
+			<a title="reload"  href="/reload$url"><code>$url</code></a>
+			<a title="$description" href="/exit$url">$exit</a>
 			</span>
 		|;
 
@@ -224,6 +229,31 @@
 	return $html;
 }
 
+=head2 editor
+
+Create HTML editor link with optional line and title
+
+  my $html = $self->editor( $class, $line, $title );
+
+=cut
+
+sub editor {
+	my ( $self, $class, $line, $title ) = @_;
+	confess "need class" unless $class;
+	$line ||= 1;
+	qq|<a target="editor" href="/editor+$class+$line"| .
+	( $title ? qq| title="$title"| : '' ) .
+	qq|>$class</a>|;
+}
+
+=head2 editor_links
+
+Create HTML links to editor for perl error message
+
+  my $html = $self->editor_links( $error )
+
+=cut
+
 sub editor_links {
 	my ( $self, $error ) = @_;