Mirrors_Framework/paparazzi
1
0
Fork 0
mirror of https://github.com/paparazzi/paparazzi.git synced 2026-05-30 19:47:50 +08:00
Code Issues Actions 25 Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
Antoine Drouin
2005-08-17 11:41:20 +00:00
parent 14e24f6199
commit da6fd1bcb4
1 changed files with 8 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files
sw/ground_segment/cockpit/Paparazzi/Strip.pm
+8 -13
View File
@@ -16,7 +16,7 @@
# but WITHOUT ANY WARRANTY; without even the implied warranty of # but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details. # GNU General Public License for more details.
# #
# You should have received a copy of the GNU General Public License # You should have received a copy of the GNU General Public License
# along with paparazzi; see the file COPYING. If not, write to # along with paparazzi; see the file COPYING. If not, write to
# the Free Software Foundation, 59 Temple Place - Suite 330, # the Free Software Foundation, 59 Temple Place - Suite 330,
@@ -68,7 +68,7 @@ sub completeinit {
# $self->{fp} = $flight_plan; # $self->{fp} = $flight_plan;
$self->{modes} = $self->{modes} =
{ {
ap_mode => ap_mode =>
{ name => ["Manual", "Auto1", "Auto2", "Home"], { name => ["Manual", "Auto1", "Auto2", "Home"],
color => ["sienna", "blue", "brown", "red"] color => ["sienna", "blue", "brown", "red"]
@@ -120,12 +120,9 @@ sub parse_config {
print "Parsing gui.xml\n"; print "Parsing gui.xml\n";
my $doc = $parser->parsefile(Paparazzi::Environment::get_config("gui.xml")); my $doc = $parser->parsefile(Paparazzi::Environment::get_config("gui.xml"));
my $strip = $doc->getElementsByTagName('strip')->[0]; my $strip = $doc->getElementsByTagName('strip')->[0];
$self->{options}->{normal_font} = $strip->getAttribute('normal_font'); foreach my $attr ('normal_font', 'small_font', 'background_color', 'border_color', 'label_color', 'value_color') {
$self->{options}->{small_font} = $strip->getAttribute('small_font'); $self->{options}->{$attr} = $strip->getAttribute($attr);
$self->{options}->{background_color} = $strip->getAttribute('background_color'); }
$self->{options}->{border_color} = $strip->getAttribute('border_color');
$self->{options}->{label_color} = $strip->getAttribute('label_color');
$self->{options}->{value_color} = $strip->getAttribute('value_color');
} }
@@ -386,12 +383,11 @@ sub aircraft_config_changed {
my ($self, $aircraft, $event, $new_value) = @_; my ($self, $aircraft, $event, $new_value) = @_;
# parse_config(); # parse_config();
# parse flight plan # parse flight plan
print "in strip aircraft_config_changed $event $new_value\n"; # print "in strip aircraft_config_changed $event $new_value\n";
# flight_plan # flight_plan
if ($event eq 'flight_plan' and defined $new_value) { if ($event eq 'flight_plan') {
# $self->border_block(); # display blocks of flight plan # $self->border_block() if (defined $new_value) ; # display blocks of flight plan
} }
elsif ($event eq 'ap_mode' or $event eq 'rc_status' or elsif ($event eq 'ap_mode' or $event eq 'rc_status' or
$event eq 'gps_mode' or $event eq 'contrast_status') { $event eq 'gps_mode' or $event eq 'contrast_status') {
my $names = $self->{modes}->{$event}->{name}; my $names = $self->{modes}->{$event}->{name};
@@ -403,7 +399,6 @@ sub aircraft_config_changed {
print "in Strip::aircraft_config_changed : wrong value $new_value for $event\n"; print "in Strip::aircraft_config_changed : wrong value $new_value for $event\n";
} }
} }
elsif ($event eq 'flight_time') { elsif ($event eq 'flight_time') {
$self->set_item("flight_time",$self->string_of_time($new_value), $self->{options}->{value_color}); $self->set_item("flight_time",$self->string_of_time($new_value), $self->{options}->{value_color});
} }