? my ($app, $window, @classes) = @_; ? my $active = grep {$_ eq "active"} @classes;
" id="id ?>">
title . " " . $window->topic->{string} ?>