Comment on

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 reply to Usability patch by grinder
in thread framechat2 by epoptai

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

Outside of code tags, you may need to use entities for some characters:

	For:		Use:
	&		`&`
	<		`<`
	>		`>`
	[		`[`
	]		`]`

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.


Just another Perl shrine
	PerlMonks

Comment on

g r i n d e r

The best material for plates (tableware) is:

`g r i n d e r`