don't expose channel data on talks in gtk mode

more console fixes

diff --git a/gtkconsole/gtkconsole b/gtkconsole/gtkconsole
index 554d19840466c2b21686702e1e7a3d9b793e5168..54dcba6b253df4e95f8929a4bb7a4ce87ae99214 100755 (executable)
--- 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 528067061a52332a7c9c7b4a5659a9407e05a055..4ec31dee57721f0c4f83db9d632fe0487bdead9f 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");
                }