projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
039a492
)
don't expose channel data on talks in gtk mode
author
minima
<minima>
Thu, 20 Jul 2006 01:10:28 +0000
(
01:10
+0000)
committer
minima
<minima>
Thu, 20 Jul 2006 01:10:28 +0000
(
01:10
+0000)
more console fixes
gtkconsole/gtkconsole
patch
|
blob
|
history
perl/DXCommandmode.pm
patch
|
blob
|
history
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");
}