diff --git a/conf/control_panel.xml.example b/conf/control_panel.xml.example index 902850be1c..7ee21e0c27 100644 --- a/conf/control_panel.xml.example +++ b/conf/control_panel.xml.example @@ -12,48 +12,48 @@
- + - + - + - + - + - + - + - + - + - + - + - +
@@ -62,9 +62,9 @@
- - - + + + @@ -74,37 +74,37 @@ - - + + - - + + - - - - + + + + - + - - + + - - - + + +
diff --git a/sw/supervision/paparazzicenter.glade b/sw/supervision/paparazzicenter.glade index 046225f3c8..212a83f351 100644 --- a/sw/supervision/paparazzicenter.glade +++ b/sw/supervision/paparazzicenter.glade @@ -1628,7 +1628,7 @@ True - Sim + _Simulation True @@ -1637,7 +1637,7 @@ True - Fly with ... + _Flight True @@ -1646,7 +1646,7 @@ True - Replay + Log File _Replay True @@ -1661,7 +1661,7 @@ True - User + Custom True @@ -1674,7 +1674,7 @@ True - Single Program + _Tools True @@ -1717,7 +1717,7 @@ True - Current: + Current Operation: False False GTK_JUSTIFY_LEFT @@ -1804,7 +1804,7 @@ True - Remove All Processes + Stop/Remove All Processes True False GTK_JUSTIFY_LEFT @@ -2019,7 +2019,8 @@ False - True + False + GTK_PACK_END diff --git a/sw/supervision/pc_control_panel.ml b/sw/supervision/pc_control_panel.ml index 7572c0d13f..9fda50af00 100644 --- a/sw/supervision/pc_control_panel.ml +++ b/sw/supervision/pc_control_panel.ml @@ -39,8 +39,11 @@ let programs = (Xml.children s); h let program_command = fun x -> - let xml = Hashtbl.find programs x in - Env.paparazzi_src // ExtXml.attrib xml "command" + try + let xml = Hashtbl.find programs x in + Env.paparazzi_src // ExtXml.attrib xml "command" + with Not_found -> + failwith (sprintf "Fatal Error: Program '%s' not found in control_panel.xml" x) let sessions = let h = Hashtbl.create 7 in @@ -186,20 +189,20 @@ let supervision = fun ?file gui log -> let supervision_page = 1 in (* FIXME *) let run_gcs = fun () -> - run_and_monitor ?file ~plugged:true gui log "gcs" "" + run_and_monitor ?file ~plugged:true gui log "GCS" "" and run_server = fun args -> - run_and_monitor ?file gui log "server" args + run_and_monitor ?file gui log "Server" args and run_link = fun args -> - run_and_monitor ?file gui log "link" args + run_and_monitor ?file gui log "Data Link" args and run_sitl = fun ac_name -> let args = sprintf "-a %s -boot -norc" ac_name in - run_and_monitor ?file gui log "sim" args + run_and_monitor ?file gui log "Simulator" args in (* Replay menu *) let callback = fun () -> gui#entry_session_name#set_text "Replay"; - run_and_monitor ?file gui log "play" ""; + run_and_monitor ?file gui log "Log File Player" ""; run_server "-n"; run_gcs () in @@ -210,7 +213,7 @@ let supervision = fun ?file gui log -> close_programs gui in ignore (gui#button_remove_all_processes#connect#clicked ~callback); - (* Programs *) + (* Tools *) let entries = ref [] in Hashtbl.iter (fun name prog -> @@ -234,7 +237,7 @@ let supervision = fun ?file gui log -> Hashtbl.iter (fun ac_name ac -> let cb = fun () -> - gui#entry_session_name#set_text (sprintf "Sim %s" ac_name); + gui#entry_session_name#set_text (sprintf "Simualator %s" ac_name); run_gcs (); run_server "-n"; run_sitl ac_name @@ -302,13 +305,13 @@ let supervision = fun ?file gui log -> (* Flights *) let cb = fun name args () -> - gui#entry_session_name#set_text (sprintf "Fly with %s" name); + gui#entry_session_name#set_text (sprintf "Flight: %s" name); run_gcs (); run_server ""; run_link args in let entries = - [`I ("XBee", cb "XBee" "-transport xbee -uplink"); + [`I ("Maxstream", cb "Maxstream" "-transport xbee -uplink"); `I ("Aerocomm", cb "Aerocomm" "-s 57600 -aerocomm -uplink"); `I ("Serial", cb "Serial" "-uplink")] in let menu = GMenu.menu ()