*** empty log message ***

This commit is contained in:
Antoine Drouin
2005-09-03 12:52:27 +00:00
parent f1885b8a21
commit 0e4e75ecf2
3 changed files with 13 additions and 4 deletions
@@ -78,3 +78,5 @@ sub build_gui {
$zinc->add('rectangle', $self->{main_group}, [0, 0, $width, $height], $zinc->add('rectangle', $self->{main_group}, [0, 0, $width, $height],
-visible => 1, -linecolor => "green"); -visible => 1, -linecolor => "green");
} }
1;
@@ -17,7 +17,7 @@ sub populate {
$args->{-title} = TITLE; $args->{-title} = TITLE;
$self->SUPER::populate($args); $self->SUPER::populate($args);
$self->configspec( $self->configspec(
-lls => [S_NOINIT, S_METHOD, S_RDWR, S_OVRWRT, S_NOPRPG, 0.0015], # -lls => [S_NOINIT, S_METHOD, S_RDWR, S_OVRWRT, S_NOPRPG, 0.0015],
); );
} }
@@ -33,6 +33,11 @@ sub set_aircraft {
$prev_ac->detach($self, $field, [\&update_field]) if ($prev_ac); $prev_ac->detach($self, $field, [\&update_field]) if ($prev_ac);
$new_ac->attach($self, $field, [\&update_field]) if ($new_ac); $new_ac->attach($self, $field, [\&update_field]) if ($new_ac);
} }
foreach my $field (@fields) {
my $text = $new_ac->get($field);
$self->get('-zinc')->itemconfigure($self->{'value_'.$field}, -text => $text);
}
$self->{aircraft} = $new_ac;
} }
sub update_field { sub update_field {
@@ -42,8 +47,10 @@ sub update_field {
} }
sub onTimer { sub onTimer {
my ( $self) = @_; my ($self) = @_;
$self->{history}->put_value(scalar $self->get('-lls')); if (defined $self->{aircraft}) {
$self->{history}->put_value(scalar $self->{aircraft}->get('gps_hybrid_factor'));
}
} }
sub lls { sub lls {
+1 -1
View File
@@ -39,7 +39,7 @@ my $options =
{ {
ivy_bus => "127.255.255.255:2005", ivy_bus => "127.255.255.255:2005",
render => 1, render => 1,
tracelevel => 3, tracelevel => 1,
}; };
sub populate { sub populate {