|Perl: the Markov chain saw|
(yakko: ctrl-u addition) Re: Perl/Tk Chatterbox Clientby yakko (Friar)
|on Jan 22, 2001 at 01:34 UTC||Need Help??|
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:
insert the ^U binding after the statements above:
and around line 682, between the end of the Msg_Click sub and the beginning of the completeName sub, I put my ^U subroutine:
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)