Usability patch

in reply to framechat2

I changed the order of the buttons in the bottom talk frame, so that I can type my message, press tab to change the focus to the next button in the form and press space to send off the message. It's really makes a difference if you're a keyboard freak (as opposed to a mouse freak). The tail end of sub talk becomes:

my$prnt = qq~<html> $bodytag
<table align="center" border="0" cellpadding="0" cellspacing="0"><tr>
<FORM method="post"><td>
<INPUT type=hidden name="op" value="message">
<INPUT TYPE="hidden" NAME="node_id" VALUE="37150">
<INPUT TYPE="hidden" NAME="mode" VALUE="talk">
<textarea name="message" wrap="virtual" cols="50" rows="4">$extra<\/te
+xtarea>$nb </td>
<td><table align="center" border="0" cellpadding="0" cellspacing="3">
<tr><td><INPUT TYPE="submit" NAME="message_send" VALUE="talk"></td><td
+ align="right">
$nb <font size="-1"><a href="$uri?n=repinit" target="chat">rep</a>
$nb <INPUT TYPE="submit" NAME="n" VALUE="encode">
<input type="reset" value="clear"></font></td></tr>
<tr><td><INPUT TYPE="submit" NAME="n" VALUE="tag"></td><td>$nb<select 
+name="tag">~;

my$c = 1;
for(@tags){ # cb tag menu
    my$sel = '';
    $_ =~ s/&lt;/</; # fixes the code tag (so i can post the code to p
+erlmonks :-)
    encode_entities($_);
    if($i{'tag'}){
        $sel = ' selected' if $c == $i{'tag'};
        }
    $prnt .= qq~<option value="$c"$sel>$_\n~;
    $c++
    }

print $prnt, qq~</select>$nb <br></td></tr>
<tr><td><INPUT TYPE="submit" NAME="n" VALUE="ent"></td><td>$nb~, entit
+ies_menu(),
qq~<br></td></tr></table></td></FORM></tr></table> $eh~;
exit
}
[download]

Enjoy!

`g r i n d e r`

In Section Perl Monks Discussion