a pretty nearly working gtkconsole...

[spider.git] / perl / DXCommandmode.pm

diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index 528067061a52332a7c9c7b4a5659a9407e05a055..9ce79d22e0e75b109872d6f16f8242011eb6500e 100644 (file)
--- a/perl/DXCommandmode.pm
+++ b/perl/DXCommandmode.pm
@@ -833,7 +833,7 @@ sub talk
        $line =~ s/\\5E/\^/g;
        if ($self->{talk}) {
                if ($self->{gtk}) {
-                       $self->local_send('T', dd(['talk',$to,$from,$via,$line,@_]));
+                       $self->local_send('T', dd(['talk',$to,$from,$via,$line]));
                } else {
                        $self->local_send('T', "$to de $from: $line");
                }
@@ -1050,9 +1050,9 @@ sub broadcast_debug
        foreach my $dxchan (DXChannel::get_all) {
                next unless $dxchan->{enhanced} && $dxchan->{senddbg};
                if ($dxchan->{gtk}) {
-                       $dxchan->local_send('L', dd(['db', $s]));
+                       $dxchan->send_later('L', dd(['db', $s]));
                } else {
-                       $dxchan->local_send('L', $s);
+                       $dxchan->send_later('L', $s);
                }
        }
 }