Simulation session selected by default

This commit is contained in:
Pascal Brisset
2007-11-14 20:58:13 +00:00
parent 89e1960df4
commit 09573a76fc

View File

@@ -172,6 +172,7 @@ let supervision = fun ?file gui log (ac_combo : Utils.combo) ->
sessions in
register_custom_sessions ();
Utils.select_in_combo session_combo "Simulation";
let execute_custom = fun session_name ->
let session = Hashtbl.find sessions session_name in