Great client!

Here's some small bits to add if you like using ^U to get rid of the text in the input widget...

Around line 541, you originally have: 

    $Inputfield->bind("<Return>", \&Say_Click);
    $Inputfield->bind("<Control-Return>", \&Msg_Click);
    $Inputfield->bind("<Tab>", \&completeName);

[download]
insert the ^U binding after the statements above: 
    $Inputfield->bind("<Control-u>", \&clearentrybox);

[download]
and around line 682, between the end of the Msg_Click sub and the beginning of the completeName sub, I put my ^U subroutine: 
######################################################################
+##########
#
# clearentrybox
#
# clears the entry box on ^U
#
sub clearentrybox {
    $Inputfield->delete(0,'end');
}

[download]
So far, so good here on my system... a perusal of Tk::Text didn't reveal conflicts with normal keys...

(Update: Added context to make locating the spots to put the code a tad easier)

--
Me spell chucker work grate. Need grandma chicken.

In reply to (yakko: ctrl-u addition) Re: Perl/Tk Chatterbox Client by yakko
in thread Perl/Tk Chatterbox Client by Shendal

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • 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, details, 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, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.