From 595e0304401baef45d56a55b4b98d7eebe6a7352 Mon Sep 17 00:00:00 2001 From: minima Date: Wed, 15 Aug 2001 22:11:28 +0000 Subject: [PATCH] fixed the talk problem --- Changes | 2 ++ gtkconsole/gtkconsole | 7 +++++-- perl/DXCommandmode.pm | 2 +- 3 files changed, 8 insertions(+), 3 deletions(-) diff --git a/Changes b/Changes index 2e0246e1..fbe3c8f6 100644 --- a/Changes +++ b/Changes @@ -1,3 +1,5 @@ +15Aug01======================================================================= +1. fix problem with talks not coming out anymore 13Aug01======================================================================= 1. fixed problem of dxspots not being echoed back to spotter (announces too) 02Aug01======================================================================= diff --git a/gtkconsole/gtkconsole b/gtkconsole/gtkconsole index e5458244..3b65d0e6 100755 --- a/gtkconsole/gtkconsole +++ b/gtkconsole/gtkconsole @@ -114,7 +114,6 @@ $bot->set_editable(1); $bot->signal_connect('activate', \&bothandler); $bot->can_default(1); $bot->grab_default; -$bot->grab_focus; $bot->show; # a horizontal box @@ -142,6 +141,7 @@ $vbox->pack_start($bot, 0, 1, 0); # the main loop $main->show_all; +$bot->grab_focus; Gtk->main; # @@ -174,6 +174,7 @@ sub bothandler my $msg = $self->get_text; $msg =~ s/\r?\n$//; $self->set_text(''); + $self->grab_focus; senddata($msg); } @@ -212,9 +213,11 @@ sub handlemsg my $msg = shift; my ($sort, $call, $line) = $msg =~ /^(\w)([^\|]+)\|(.*)$/; if ($sort eq 'D') { - $toplist->insert($toplist->{font}, undef, undef, "$line\n"); + $toplist->insert($toplist->{font}, undef, undef, "$line\n"); } elsif ($sort eq 'X') { $toplist->insert($toplist->{font}, undef, undef, "$line\n"); + } elsif ($sort eq 'T') { + $toplist->insert($toplist->{font}, undef, undef, "$line\n"); } elsif ($sort eq 'Y') { $toplist->insert($toplist->{font}, undef, undef, "$line\n"); } elsif ($sort eq 'V') { diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm index eef342bc..2f3d85f2 100644 --- a/perl/DXCommandmode.pm +++ b/perl/DXCommandmode.pm @@ -649,7 +649,7 @@ sub talk { my ($self, $from, $to, $via, $line) = @_; $line =~ s/\\5E/\^/g; - $self->send_later('T', "$to de $from: $line") if $self->{talk}; + $self->local_send('T', "$to de $from: $line") if $self->{talk}; Log('talk', $to, $from, $main::mycall, $line); # send a 'not here' message if required unless ($self->{here} && $from ne $to) { -- 2.43.0