projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
don't expose channel data on talks in gtk mode
[spider.git]
/
gtkconsole
/
gtkconsole
diff --git
a/gtkconsole/gtkconsole
b/gtkconsole/gtkconsole
index 4b3a34eda8c8b891b6a3058bd5bb86dd1bb1292a..54dcba6b253df4e95f8929a4bb7a4ce87ae99214 100755
(executable)
--- a/
gtkconsole/gtkconsole
+++ b/
gtkconsole/gtkconsole
@@
-2,7
+2,7
@@
#
# A GTK based console program
#
#
# A GTK based console program
#
-# Copyright (c) 2001 Dirk Koopman G1TLH
+# Copyright (c) 2001
-6
Dirk Koopman G1TLH
#
# $Id$
#
#
# $Id$
#
@@
-50,8
+50,8
@@
if ($ssid) {
die "You cannot connect as your cluster callsign ($main::mycall)\n" if $call eq $main::mycall;
die "You cannot connect as your cluster callsign ($main::mycall)\n" if $call eq $main::mycall;
-my $host = '
localhos
t';
-my $port = 730
1
;
+my $host = '
gb7djk.dxcluster.ne
t';
+my $port = 730
0
;
my $sock = IO::Socket::INET->new(PeerAddr=>$host, PeerPort=>$port);
die "Cannot connect to $host/$port ($!)\n" unless $sock;
my $sock = IO::Socket::INET->new(PeerAddr=>$host, PeerPort=>$port);
die "Cannot connect to $host/$port ($!)\n" unless $sock;
@@
-118,7
+118,7
@@
Gtk2::SimpleList->add_column_type( 'qrg',
attr => sub {
my ($treecol, $cell, $model, $iter, $col_num) = @_;
my $info = $model->get ($iter, $col_num);
attr => sub {
my ($treecol, $cell, $model, $iter, $col_num) = @_;
my $info = $model->get ($iter, $col_num);
- $cell->set(text => sprintf("%.1f", $info), font => $font);
+ $cell->set(text => sprintf("%.1f", $info), font => $font
, xalign => 1.0
);
}
);
}
);
@@
-149,6
+149,7
@@
my $dxlist = Gtk2::SimpleList->new(
'Grid' => 'tt',
'TxTime' => 'tt',
);
'Grid' => 'tt',
'TxTime' => 'tt',
);
+$dxlist->set_rules_hint(1);
my $dxscroll = Gtk2::ScrolledWindow->new (undef, undef);
$dxscroll->set_shadow_type ('etched-out');
$dxscroll->set_policy ('never', 'automatic');
my $dxscroll = Gtk2::ScrolledWindow->new (undef, undef);
$dxscroll->set_shadow_type ('etched-out');
$dxscroll->set_policy ('never', 'automatic');
@@
-203,6
+204,7
@@
my $annlist = Gtk2::SimpleList->new(
To => 'tt',
Announcement => 'tt',
);
To => 'tt',
Announcement => 'tt',
);
+$annlist->set_rules_hint(1);
my $annscroll = Gtk2::ScrolledWindow->new (undef, undef);
$annscroll->set_shadow_type ('etched-out');
$annscroll->set_policy ('automatic', 'automatic');
my $annscroll = Gtk2::ScrolledWindow->new (undef, undef);
$annscroll->set_shadow_type ('etched-out');
$annscroll->set_policy ('automatic', 'automatic');
@@
-221,6
+223,7
@@
my $wwvlist = Gtk2::SimpleList->new(
Remarks => 'tt',
Hour => 'tt'
);
Remarks => 'tt',
Hour => 'tt'
);
+$wwvlist->set_rules_hint(1);
my $wwvscroll = Gtk2::ScrolledWindow->new (undef, undef);
$wwvscroll->set_shadow_type ('etched-out');
$wwvscroll->set_policy ('never', 'automatic');
my $wwvscroll = Gtk2::ScrolledWindow->new (undef, undef);
$wwvscroll->set_shadow_type ('etched-out');
$wwvscroll->set_policy ('never', 'automatic');
@@
-243,6
+246,7
@@
my $wcylist = Gtk2::SimpleList->new(
Aurora => 'tt',
Time => 'tt'
);
Aurora => 'tt',
Time => 'tt'
);
+$wcylist->set_rules_hint(1);
my $wcyscroll = Gtk2::ScrolledWindow->new (undef, undef);
$wcyscroll->set_shadow_type ('etched-out');
$wcyscroll->set_policy ('never', 'automatic');
my $wcyscroll = Gtk2::ScrolledWindow->new (undef, undef);
$wcyscroll->set_shadow_type ('etched-out');
$wcyscroll->set_policy ('never', 'automatic');
@@
-322,7
+326,7
@@
sub handlemsg
if (__PACKAGE__->can($handle)) {
__PACKAGE__->$handle($list);
} else {
if (__PACKAGE__->can($handle)) {
__PACKAGE__->$handle($list);
} else {
-
push
@$list, $cmd;
+
unshift
@$list, $cmd;
__PACKAGE__->handle_def($list);
}
}
__PACKAGE__->handle_def($list);
}
}
@@
-336,9
+340,9
@@
sub handle_cmd
my $s;
$s = ref $ref ? join ', ',@$ref : $ref;
my $s;
$s = ref $ref ? join ', ',@$ref : $ref;
- if (
exists $cmdlist->{lasttime}
!= $t) {
+ if (
($cmdscroll->{lasttime}||0)
!= $t) {
$ts = tim($t);
$ts = tim($t);
- $cmd
list
->{lasttime} = $t;
+ $cmd
scroll
->{lasttime} = $t;
}
chomp $s;
}
chomp $s;
@@
-353,9
+357,9
@@
sub handle_def
$s = ref $ref ? join ', ',@$ref : $ref;
my ($t, $ts) = (time, '');
$s = ref $ref ? join ', ',@$ref : $ref;
my ($t, $ts) = (time, '');
- if (
exists $cmdlist->{lasttime}
!= $t) {
+ if (
($cmdscroll->{lasttime}||0)
!= $t) {
$ts = tim($t);
$ts = tim($t);
- $cmd
list
->{lasttime} = $t;
+ $cmd
scroll
->{lasttime} = $t;
}
chomp $s;
}
chomp $s;
@@
-368,9
+372,9
@@
sub handle_dx
my $ref = shift;
my ($t, $ts) = (time, '');
my $ref = shift;
my ($t, $ts) = (time, '');
- if (
exists $dxlist->{lasttime}
!= $t) {
+ if (
($dxscroll->{lasttime}||0)
!= $t) {
$ts = tim($t);
$ts = tim($t);
- $dx
list
->{lasttime} = $t;
+ $dx
scroll
->{lasttime} = $t;
}
push @{$dxlist->{data}}, [$ts, @$ref[0,1,15,3,4,16], stim($ref->[2]) ];
}
push @{$dxlist->{data}}, [$ts, @$ref[0,1,15,3,4,16], stim($ref->[2]) ];
@@
-384,13
+388,13
@@
sub handle_ann
my $s;
$s = ref $ref ? join ', ',@$ref : $ref;
my $s;
$s = ref $ref ? join ', ',@$ref : $ref;
- if (
exists $cmdlist->{lasttime}
!= $t) {
+ if (
($annscroll->{lasttime}||0)
!= $t) {
$ts = tim($t);
$ts = tim($t);
- $
cmdlist
->{lasttime} = $t;
+ $
annscroll
->{lasttime} = $t;
}
chomp $s;
}
chomp $s;
- push @{$
cmd
list->{data}}, [$ts, @$ref[0,1,2]];
+ push @{$
ann
list->{data}}, [$ts, @$ref[0,1,2]];
}
sub handle_wcy
}
sub handle_wcy
@@
-401,7
+405,7
@@
sub handle_wcy
$s = ref $ref ? join ', ',@$ref : $ref;
chomp $s;
$s = ref $ref ? join ', ',@$ref : $ref;
chomp $s;
- push @{$
cmd
list->{data}}, [tim(), @$ref[10,4,5,3,6,2,7,8,9,1] ];
+ push @{$
wcy
list->{data}}, [tim(), @$ref[10,4,5,3,6,2,7,8,9,1] ];
}
sub handle_wwv
}
sub handle_wwv
@@
-412,7
+416,7
@@
sub handle_wwv
$s = ref $ref ? join ', ',@$ref : $ref;
chomp $s;
$s = ref $ref ? join ', ',@$ref : $ref;
chomp $s;
- push @{$
cmd
list->{data}}, [tim(), @$ref[6,2,3,4,5,1] ];
+ push @{$
wwv
list->{data}}, [tim(), @$ref[6,2,3,4,5,1] ];
}
#
}
#