From a5b42f8de3d2882755f72d42d9e9092868a61ec1 Mon Sep 17 00:00:00 2001 From: minima Date: Thu, 20 Jul 2006 01:10:28 +0000 Subject: [PATCH] don't expose channel data on talks in gtk mode more console fixes --- gtkconsole/gtkconsole | 2 +- perl/DXCommandmode.pm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/gtkconsole/gtkconsole b/gtkconsole/gtkconsole index 554d1984..54dcba6b 100755 --- a/gtkconsole/gtkconsole +++ b/gtkconsole/gtkconsole @@ -326,7 +326,7 @@ sub handlemsg if (__PACKAGE__->can($handle)) { __PACKAGE__->$handle($list); } else { - push @$list, $cmd; + unshift @$list, $cmd; __PACKAGE__->handle_def($list); } } diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm index 52806706..4ec31dee 100644 --- 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"); } -- 2.43.0