*** 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],
-visible => 1, -linecolor => "green");
}
1;
@@ -17,7 +17,7 @@ sub populate {
$args->{-title} = TITLE;
$self->SUPER::populate($args);
$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);
$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 {
@@ -42,8 +47,10 @@ sub update_field {
}
sub onTimer {
my ( $self) = @_;
$self->{history}->put_value(scalar $self->get('-lls'));
my ($self) = @_;
if (defined $self->{aircraft}) {
$self->{history}->put_value(scalar $self->{aircraft}->get('gps_hybrid_factor'));
}
}
sub lls {
+1 -1
View File
@@ -39,7 +39,7 @@ my $options =
{
ivy_bus => "127.255.255.255:2005",
render => 1,
tracelevel => 3,
tracelevel => 1,
};
sub populate {