IR/srtm button removed

This commit is contained in:
Pascal Brisset
2007-07-13 12:58:12 +00:00
parent 975354ff29
commit b690e97014
-4
View File
@@ -134,7 +134,6 @@ module Make(AircraftItl : AIRCRAFT_ITL) = struct
let last_gps_state = ref None in
let _run = ref false in
let ir_srtm = ref false in
let wind_x = ref 0.
and wind_y = ref 0. in
@@ -244,9 +243,6 @@ module Make(AircraftItl : AIRCRAFT_ITL) = struct
end else
take_off ();
let ir_srtm_button = GButton.toggle_button ~label:"IR/srtm" ~packing:hbox#pack () in
ignore (ir_srtm_button#connect#toggled (fun () -> ir_srtm := not !ir_srtm));
let s = GButton.button ~label:"Set Pos" ~packing:hbox#pack () in
ignore (s#connect#clicked ~callback:set_pos);