Mirrors_Framework/paparazzi
1
0
Fork 0
mirror of https://github.com/paparazzi/paparazzi.git synced 2026-06-01 12:57:27 +08:00
Code Issues Actions 24 Packages Projects Releases Wiki Activity

A/C selected from map

Browse Source
This commit is contained in:
Pascal Brisset
2005-08-27 23:04:13 +00:00
parent 214d67c529
commit d79dafaff0
3 changed files with 10 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
conf/messages.xml
+1 -1
View File
@@ -269,7 +269,7 @@
</message> </message>
<message name="SELECTED" ID="5"> <message name="SELECTED" ID="5">
<field name="aicraft_id" type="string"/> <field name="aircraft_id" type="string"/>
</message> </message>
<message name="SELECTED_REQ" ID="6"> <message name="SELECTED_REQ" ID="6">
sw/ground_segment/cockpit/cockpit.pl
+2 -2
View File
@@ -123,7 +123,7 @@ sub on_foo {
sub ivy_on_selected { sub ivy_on_selected {
my ($sender_name, $msg_class, $msg_name, $fields, $self) = @_; my ($sender_name, $msg_class, $msg_name, $fields, $self) = @_;
print "in ivy_on_selected\n"; # if (COCKPIT_DEBUG); print "in ivy_on_selected\n"; # if (COCKPIT_DEBUG);
my $ac_id = $fields->{aicraft_id}; my $ac_id = $fields->{aircraft_id};
if (defined $self->{aircrafts_manager}->get_aircraft_by_id($ac_id)) { if (defined $self->{aircrafts_manager}->get_aircraft_by_id($ac_id)) {
$self->select_ac($ac_id); $self->select_ac($ac_id);
} }
@@ -135,7 +135,7 @@ sub ivy_on_selected {
sub on_aircraft_selection { sub on_aircraft_selection {
my ($self, $_sp, $what, $new_selected_ac ) = @_; my ($self, $_sp, $what, $new_selected_ac ) = @_;
$self->select_ac($new_selected_ac); $self->select_ac($new_selected_ac);
Paparazzi::IvyProtocol::send_msg('ground', 'SELECTED', { aicraft_id => $new_selected_ac }); Paparazzi::IvyProtocol::send_msg('ground', 'SELECTED', { aircraft_id => $new_selected_ac });
} }
sub select_ac { sub select_ac {
sw/ground_segment/cockpit/map2d.ml
+7
View File
@@ -239,6 +239,13 @@ let one_new_ac = fun (geomap:MapCanvas.widget) ac ->
ignore (ac_menu_fact#add_item "Resize Track" ~callback:(fun () -> resize_track ac track)); ignore (ac_menu_fact#add_item "Resize Track" ~callback:(fun () -> resize_track ac track));
let cam = ac_menu_fact#add_check_item "Cam Display" ~active:false in let cam = ac_menu_fact#add_check_item "Cam Display" ~active:false in
ignore (cam#connect#toggled (fun () -> track#set_cam_state cam#active)); ignore (cam#connect#toggled (fun () -> track#set_cam_state cam#active));
let event_ac = fun e ->
match e with
`BUTTON_PRESS _ | `BUTTON_RELEASE _ ->
Ground_Pprz.message_send "ground" "SELECTED" ["aircraft_id", Pprz.String ac];
true
| _ -> false in
ignore (track#aircraft#connect#event event_ac);
Hashtbl.add live_aircrafts ac { track = track; color = color; fp_group = None } Hashtbl.add live_aircrafts ac { track = track; color = color; fp_group = None }
end end