Mirrors_Framework/paparazzi
1
0
Fork 0
mirror of https://github.com/paparazzi/paparazzi.git synced 2026-05-31 12:23:23 +08:00
Code Issues Actions 26 Packages Projects Releases Wiki Activity

fixed wrong stage/block bug

Browse Source
This commit is contained in:
Antoine Drouin
2005-09-03 11:21:27 +00:00
parent 4a27bfdef5
commit c88fca84c7
1 changed files with 13 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
sw/ground_segment/cockpit/Paparazzi/MissionD.pm
+13 -8
View File
@@ -20,7 +20,7 @@ sub Populate {
my $notebook = $self->NoteBook(-ipadx => 6, -ipady => 6);
$notebook->pack(-fill => 'both', -expand => "1");
$self->Advertise('notebook' => $notebook);
$self->{cur_block} = $self->{cur_stage} = -1;
# $self->{cur_block} = $self->{cur_stage} = -1;
}
sub set_selected_ac {
@@ -51,7 +51,12 @@ sub add_aircraft {
$text->pack(-fill => 'both', -expand => "1");
$text->insert('end', "coucou");
$self->{'text'.$aircraft->get('-ac_id')} = $text;
my $ac_id = $aircraft->get('-ac_id');
$self->{'text'.$ac_id} = $text;
$self->{'cur_block_'.$ac_id} = $aircraft->get('cur_block');
$text->tagConfigure($self->{'cur_block_'.$ac_id}, -background => 'green3');
$self->{'cur_stage_'.$ac_id} = $aircraft->get('cur_stage');
$text->tagConfigure($self->{'cur_stage_'.$ac_id}, -background => 'green1');
$aircraft->attach($self, 'flight_plan', [\&on_ac_changed]);
$aircraft->attach($self, 'cur_block', [\&on_ac_changed]);
$aircraft->attach($self, 'cur_stage', [\&on_ac_changed]);
@@ -69,16 +74,16 @@ sub on_ac_changed {
}
elsif ($event eq 'cur_block') {
my $text = $self->{'text'.$ac_id};
$text->tagConfigure(get_block_id($self->{cur_block}), -background => undef);
$text->tagConfigure(get_block_id($self->{'cur_block_'.$ac_id}), -background => undef);
$text->tagConfigure(get_block_id($new_value), -background => 'green3');
$text->tagConfigure(get_stage_id($self->{cur_block}, $self->{cur_stage}), -background => undef);
$self->{cur_block} = $new_value;
$text->tagConfigure(get_stage_id($self->{'cur_block_'.$ac_id}, $self->{'cur_stage_'.$ac_id}), -background => undef);
$self->{'cur_block_'.$ac_id} = $new_value;
}
elsif ($event eq 'cur_stage') {
my $text = $self->{'text'.$ac_id};
$text->tagConfigure(get_stage_id($self->{cur_block}, $self->{cur_stage}), -background => undef);
$text->tagConfigure(get_stage_id($self->{cur_block}, $new_value), -background => 'green1');
$self->{cur_stage} = $new_value;
$text->tagConfigure(get_stage_id($self->{'cur_block_'.$ac_id}, $self->{'cur_stage_'.$ac_id}), -background => undef);
$text->tagConfigure(get_stage_id($self->{'cur_block_'.$ac_id}, $new_value), -background => 'green1');
$self->{'cur_stage_'.$ac_id} = $new_value;
}
}