--- trunk/lib/Frey/Class/Browser.pm 2009/01/05 22:08:48 925 +++ trunk/lib/Frey/Class/Browser.pm 2009/06/29 16:54:02 1109 @@ -1,12 +1,14 @@ package Frey::Class::Browser; use Moose; +use lib 'lib'; + extends 'Frey::Class::Loader'; with 'Frey::Web'; with 'Frey::Session'; with 'Frey::Web::CombineImages'; +with 'Frey::Class::Icon'; -use Frey::Run; use Data::Dump qw/dump/; has 'usage_sort' => ( @@ -33,16 +35,12 @@ $usage ||= $self->session_dump( $self->usage ); #warn "# usage ",dump( $usage ); - if ( ! $self->can('icon_path') ) { - $self->TODO( "re-apply Frey::Web on $self" ); - Frey::Web->meta->apply( $self ); - } - my $runnable = $self->load('var/Frey/Class/Browser/runnable.yaml'); foreach my $class ( $self->classes ) { my $icon = $self->icon_path( $class ); + if ($icon) { push @icons, $icon; $icon = qq||; @@ -53,7 +51,9 @@ my $html = qq|$icon$class| + . qq|">$class + + | ; if ( $class->can('meta') ) { if ( $class->meta->isa('Moose::Meta::Role') ) { @@ -96,7 +96,14 @@ $icons_html->{ $path } || die "can't find $path in ",dump($icons_html); }; - $self->title('Frey'); + $self->title('Frey') if $self->can('title'); # FIXME + + $self->add_css(qq| + a.graph { + color: #888; + text-decoration: none; + } + |); return qq|| . join("\n",