? my @windows = $_[0]->sorted_windows; ? my $titlewin = @windows > 1 ? $windows[1] : $windows[0]; <?= $titlewin->title ?>
? for (0 .. @windows - 1) { ? my $window = $windows[$_]; ? my @classes; ? if (@windows > 1) { ? push @classes, "active" if $_ == 1; ? push @classes, "leftof_active" if $_ == 0; ? } ? else { ? push @classes, "active" if $_ == 0; ? } ? my $active = grep {$_ eq "active"} @classes; ?= $_mt->render_file('window.html', $_[0], $window, @classes); ? }