Mirrors_Framework/paparazzi
1
0
Fork 0
mirror of https://github.com/paparazzi/paparazzi.git synced 2026-06-02 05:17:03 +08:00
Code Issues Actions 30 Packages Projects Releases Wiki Activity

Jeremy's words

Browse Source
This commit is contained in:
Pascal Brisset
2007-07-27 14:03:25 +00:00
parent 93f63e5223
commit cf5924a1bf
3 changed files with 52 additions and 48 deletions
Download Patch File Download Diff File Expand all files Collapse all files
sw/supervision/paparazzicenter.glade
+9 -8
View File
@@ -1628,7 +1628,7 @@
<child>
<widget class="GtkMenuItem" id="sim_menu_item">
<property name="visible">True</property>
<property name="label" translatable="yes">Sim</property>
<property name="label" translatable="yes">_Simulation</property>
<property name="use_underline">True</property>
<signal name="activate" handler="on_sim1_activate" last_modification_time="Sat, 30 Jun 2007 09:15:04 GMT"/>
</widget>
@@ -1637,7 +1637,7 @@
<child>
<widget class="GtkMenuItem" id="fly_menu_item">
<property name="visible">True</property>
<property name="label" translatable="yes">Fly with ...</property>
<property name="label" translatable="yes">_Flight</property>
<property name="use_underline">True</property>
<signal name="activate" handler="on_fly1_activate" last_modification_time="Sat, 30 Jun 2007 09:15:04 GMT"/>
</widget>
@@ -1646,7 +1646,7 @@
<child>
<widget class="GtkMenuItem" id="replay_menu_item">
<property name="visible">True</property>
<property name="label" translatable="yes">Replay</property>
<property name="label" translatable="yes">Log File _Replay</property>
<property name="use_underline">True</property>
<signal name="activate" handler="on_replay1_activate" last_modification_time="Sat, 30 Jun 2007 09:15:04 GMT"/>
</widget>
@@ -1661,7 +1661,7 @@
<child>
<widget class="GtkMenuItem" id="session_menu_item">
<property name="visible">True</property>
<property name="label" translatable="yes">User</property>
<property name="label" translatable="yes">Custom</property>
<property name="use_underline">True</property>
<signal name="activate" handler="on_session_menu_item_activate" last_modification_time="Sat, 07 Jul 2007 16:48:24 GMT"/>
</widget>
@@ -1674,7 +1674,7 @@
<child>
<widget class="GtkMenuItem" id="programs_menu_item">
<property name="visible">True</property>
<property name="label" translatable="yes">Single Program</property>
<property name="label" translatable="yes">_Tools</property>
<property name="use_underline">True</property>
</widget>
</child>
@@ -1717,7 +1717,7 @@
<child>
<widget class="GtkLabel" id="label82">
<property name="visible">True</property>
<property name="label" translatable="yes">Current:</property>
<property name="label" translatable="yes">Current Operation:</property>
<property name="use_underline">False</property>
<property name="use_markup">False</property>
<property name="justify">GTK_JUSTIFY_LEFT</property>
@@ -1804,7 +1804,7 @@
<child>
<widget class="GtkLabel" id="label83">
<property name="visible">True</property>
<property name="label" translatable="yes">Remove All Processes</property>
<property name="label" translatable="yes">Stop/Remove All Processes</property>
<property name="use_underline">True</property>
<property name="use_markup">False</property>
<property name="justify">GTK_JUSTIFY_LEFT</property>
@@ -2019,7 +2019,8 @@
</widget>
<packing>
<property name="tab_expand">False</property>
<property name="tab_fill">True</property>
<property name="tab_fill">False</property>
<property name="tab_pack">GTK_PACK_END</property>
</packing>
</child>
sw/supervision/pc_control_panel.ml
+14 -11
View File
@@ -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 ()