my $keyhint = defined($mnem) && qq{ title="$mnem"};
$keytxt = "<b$keyhint>$keytxt</b>";
$keytxt .= ' '.$desc if defined $desc;
my $keyhint = defined($mnem) && qq{ title="$mnem"};
$keytxt = "<b$keyhint>$keytxt</b>";
$keytxt .= ' '.$desc if defined $desc;
' onclick="setmode(%s)"',
$1 eq '' ? '' : sprintf(q{'mode%s'}, escapeclass($1))
);
' onclick="setmode(%s)"',
$1 eq '' ? '' : sprintf(q{'mode%s'}, escapeclass($1))
);
$flags .= ' chr'.ord(substr $key, -1) if $key ne '^0';
print qq{\t\t<td class="$flags"$onclick>$keytxt};
$flags .= ' chr'.ord(substr $key, -1) if $key ne '^0';
print qq{\t\t<td class="$flags"$onclick>$keytxt};