batkins has asked for the wisdom of the Perl Monks concerning the following question:

When I type into a Tk::Text widget in one of my projects, some letters get listed twice, so I get something like this: "hhere's some sample text." It isn't just me, because other users have reported the same thing. I noticed it while running my app on Windows XP Pro; the other user reported it on Win98. I normally use Linux, and I've never had this problem there.

Is there any way I can fix this? Has anyone else had this problem?

TIA,
Bill

Replies are listed 'Best First'.
Re: Weirdness with Tk::Text
by meredith (Friar) on Jun 19, 2003 at 03:08 UTC
    Can you post the code you're using? I've never experienced that problem myself, and I've used Tk::Text a few times. Are you trying to capture input events or something? What builds of perl are the windows users running? I'm curious.

    mhoward - at - hattmoward.org
[reply]
      They're using Perl 5.8 Build 804. I've determined that this only happens in my code. I do have a binding on KeyPress, but the problem persists even with thatgone.

      Here's the code that initializes the Text widget $self->{bottom}: (BrowseEdit is derived from Tk::Text and makes bindings on <Control-B>, <Control-U>, and <Control-I> 

          $self->{bottom} = $self->{frame}->Scrolled("BrowseEdit",
        -height => 6, -font => "times 12", -scrollbars => 'oe', -wrap 
+=> 'word',
        -spacing1 => 0, -spacing2 => 0, -spacing3 => 0)->
        pack(-expand => 1, -fill => 'both', -padx => 5);
    $self->{typing} = $self->{frame}->Label->pack(-anchor => 'w');
    $self->{frame}->Button(-text => "Send", -command => [$self, "on_se
+nd"])->
        pack(-pady => 3, -side => 'right', -anchor => 'center');
    $self->{frame}->Button(-text => "Get Profile", -command => [$self,
+ "on_prof"])->
        pack(-pady => 3, -side => 'left', -anchor => 'center');

    # WIDGET CREATION END

    $self->{top}->tagConfigure('self', -foreground => 'red', -font => 
+'times 12 bold');
    $self->{top}->tagConfigure('buddy', -foreground => 'blue', -font =
+> 'times 12 bold');
    $self->{top}->tagConfigure('self_stamp', -foreground => 'red', -el
+ide => 1, -font => 'times 9 bold');
    $self->{top}->tagConfigure('buddy_stamp', -foreground => 'blue', -
+elide => 1, -font => 'times 9 bold');

    $self->{bottom}->bind("<Return>", [$self, "on_send"]);    
    $self->{bottom}->bind("<Escape>", [$self, "destroy"]);    
    $self->{bottom}->bind("<KeyPress>", [$self, "on_key"]);    
    $self->bind("<F2>", [$self, "toggle_stamps"]);    
    $self->{top}->bind('<MouseWheel>', 
        [ sub { $_[0]->yview('scroll', -($_[1] / 120), 'units') }, Tk:
+:Ev('D')]);
    $self->{bottom}->bind('<MouseWheel>', 
        [ sub { $_[0]->yview('scroll', -($_[1] / 120), 'units') }, Tk:
+:Ev('D')]);
    # $self->bind('<Configure>', [sub {
    #     my ($width, $height) = @_;
    #     set_option('ConvoHeight', $height);
    #     set_option('ConvoWidth', $width);
    # }, Ev('w'), Ev('h')]);

    $self->{bottom}->configure(-background => 'white');
    $self->{me} = data("me");
    $self->{buddy} = $buddy;
    $self->{empty} = 1;
    $self->{last_typed} = time;
    $self->{typing_status} = 0;

    $self->update;
    $self->geometry("480x320");
    $self->deiconify;
    hook("tk_seticon", -wnd => $self);
    $self->OnDestroy([$self, "on_destroy"]);
    $self->{bottom}->focus;
    $self->{rep_id} = $self->repeat(1000, [$self, "update_status"]);

      [download]
      and here's the code for on_key: 
      sub on_key
{
    my ($self) = @_;

    print "in handler\n";

    if($self->{typing_status} == 0)
    {
        print "key change\n";
        hook("protocol_set_typing_status", -user => $self->{buddy}, -s
+tatus => 2);
        $self->{typing_status} = 2;
    }
    $self->{last_typed} = time;
}

      [download]
      and for update_status: 
      sub update_status
{
    my ($self) = @_;

    print "in update\n";

    if($self->{bottom}->get('0.0', 'end') =~ /^\s*$/ && $self->{typing
+_status})
    {
        hook("protocol_set_typing_status", -user => $self->{buddy}, -s
+tatus => 0);
        $self->{typing_status} = 0;
        return;
    }

    if((time - $self->{last_typed}) >= 5 && $self->{typing_status} == 
+2)
    {
        hook("protocol_set_typing_status", -user => $self->{buddy}, -s
+tatus => 1);
        $self->{typing_status} = 1;
    }
}

      [download]

      I still get these repetitions even when I disable the KeyPress binding and the repeat timer. Again, this doesn't happen outside of my Tk app.

      TIA,
      Bill

[reply]
[d/l]
[select]
        I don't see anything wrong, though I may have overlooked something. Since I don't have a Tk::BrowseEdit, I can't do quite perfect testing of what you're doing. Similar code works fine for me, using AS 806 and Tk 800.024 Maybe another monk can see what's wrong, or maybe it's an issue with the module? :/

        mhoward - at - hattmoward.org
[reply]

Back to Seekers of Perl Wisdom