--- trunk/lib/Frey/Web.pm	2008/11/25 14:14:21	516
+++ trunk/lib/Frey/Web.pm	2008/11/25 17:15:18	519
@@ -7,7 +7,7 @@
 
 use Continuity::Widget::DomNode;
 use Data::Dump qw/dump/;
-use Carp qw/confess/;
+use Carp qw/confess cluck/;
 use File::Slurp;
 
 use Frey::Bookmarklet;
@@ -20,16 +20,6 @@
 	default => sub { [ 'static/frey.css' ] },
 );
 
-has 'status' => (
-	is => 'rw',
-	isa => 'ArrayRef[HashRef[Str]]',
-	lazy => 1,
-	default => sub { [
-		{ 'ClassBrowser' => Frey::ClassBrowser->new( usage_on_top => 0 )->as_markup },
-		{ 'Bookmarklets' => Frey::Bookmarklet->new->as_markup },
-	] },
-);
-
 has 'request_url' => (
 	is => 'rw',
 	isa => 'Uri', coerce => 1,
@@ -149,19 +139,23 @@
 
 =cut
 
+our @status;
+sub status { @status };
+
 sub page {
 	my $self = shift;
 	my $a = {@_};
 
+	warn "## page ",dump($a);
+
 	$reload_counter++;
 
 	my $status_line = '';
-	foreach my $part ( @{ $self->status } ) {
-		if ( ref($part) ne 'HASH' ) {
-			warn "part not hash ",dump( $part ) ;
-			#$self->status( $part );
-			next;
-		}
+
+	unshift @status, { 'ClassBrowser' => Frey::ClassBrowser->new( usage_on_top => 0 )->as_markup };
+	unshift @status, { 'Bookmarklets' => Frey::Bookmarklet->new->as_markup };
+
+	foreach my $part ( @status ) {
 		foreach my $name ( keys %$part ) {
 			my $content = $part->{$name};
 			if ( ref($content) ) {
@@ -217,7 +211,7 @@
 	my $right =
 		qq|
 			<span class="right">
-			<a title="reload"  href="/reload$url"><code>$url</code></a>
+			<a title="reload $url"  href="/reload$url">reload</a>
 			<a title="$description" href="/exit$url">$exit</a>
 			</span>
 		|;
@@ -260,7 +254,11 @@
 sub editor {
 	my ( $self, $class, $line, $title ) = @_;
 	confess "need class" unless $class;
-	$line ||= 1;
+	if ( ! defined $title ) {
+		$title  = "edit $class";
+		$title .= " line $line" if $line;
+	}
+	$line  ||= 1;
 	qq|<a target="editor" href="/editor+$class+$line"| .
 	( $title ? qq| title="$title"| : '' ) .
 	qq|>$class</a>|;
@@ -303,8 +301,20 @@
 
 sub add_status {
 	my ( $self, $data ) = @_;
-	push @{ $self->status }, $data;
-	warn "## current status ", $#{ $self->status }, " elements";
+	push @status, $data;
+}
+
+sub clean_status {
+	@status = ();
+}
+
+sub status_parts {
+	warn "## status parts ", dump( map { keys %$_ } @status );
+}
+
+sub DEMOLISH {
+	my ( $self ) = @_;
+	cluck "## DEMOLISH status ", $#status + 1, " elements ", dump( map { keys %$_ } @status ) if @status;
 }
 
 1;