projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
remove any trailing \rs from the ends of lines
[spider.git]
/
gtkconsole
/
gtkconsole
diff --git
a/gtkconsole/gtkconsole
b/gtkconsole/gtkconsole
index e545824407873ad2515aead2654d7412697d894d..3b65d0e6ec76672edb26d9bb1bf01727d701a8e3 100755
(executable)
--- 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->signal_connect('activate', \&bothandler);
$bot->can_default(1);
$bot->grab_default;
-$bot->grab_focus;
$bot->show;
# a horizontal box
$bot->show;
# a horizontal box
@@
-142,6
+141,7
@@
$vbox->pack_start($bot, 0, 1, 0);
# the main loop
$main->show_all;
# the main loop
$main->show_all;
+$bot->grab_focus;
Gtk->main;
#
Gtk->main;
#
@@
-174,6
+174,7
@@
sub bothandler
my $msg = $self->get_text;
$msg =~ s/\r?\n$//;
$self->set_text('');
my $msg = $self->get_text;
$msg =~ s/\r?\n$//;
$self->set_text('');
+ $self->grab_focus;
senddata($msg);
}
senddata($msg);
}
@@
-212,9
+213,11
@@
sub handlemsg
my $msg = shift;
my ($sort, $call, $line) = $msg =~ /^(\w)([^\|]+)\|(.*)$/;
if ($sort eq 'D') {
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 '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') {
} elsif ($sort eq 'Y') {
$toplist->insert($toplist->{font}, undef, undef, "$line\n");
} elsif ($sort eq 'V') {