+
Frey $Frey::VERSION $revision
+ $status_line
+ $right
+
+ | : '';
+
+ $self->add_icon;
my $title = undef
|| $a->{title}
@@ -320,21 +330,23 @@
# $title =~ s{(\w)\w+::}{$1:}g; # XXX compress names of classes
+ $self->add_css(qq|
+ body {
+ padding-bottom: 3em; /* don't overlap status line */
+ }
+ |);
+
my $html = join("\n",
qq||,
$self->_head_html,
qq|