my $defrows = shift || [2, 1, 0];
my @modes = sort keys %{ $self->{def} };
+ print '<ul id="rows">'."\n\n";
+
for (my $row = -1; $row <= $#{ $keyrows{$self->{map}} }; $row++) {
my $keyrow = $row < 0 ? [["\e"]] : $keyrows{$self->{map}}->[$row];
} # basemode
print qq{\t</ul>\n};
} # row
+
+ print "</ul>\n";
}
sub print_legend {