From d19eb2f7e06b9151f438876dfd89d0673cda60b7 Mon Sep 17 00:00:00 2001 From: Pascal Brisset Date: Mon, 29 Mar 2010 15:15:33 +0000 Subject: [PATCH] add support for LambertIIe coordinates --- sw/lib/ocaml/mapWaypoints.ml | 2 ++ 1 file changed, 2 insertions(+) diff --git a/sw/lib/ocaml/mapWaypoints.ml b/sw/lib/ocaml/mapWaypoints.ml index 9698d58759..9b0da93865 100644 --- a/sw/lib/ocaml/mapWaypoints.ml +++ b/sw/lib/ocaml/mapWaypoints.ml @@ -125,6 +125,8 @@ class waypoint = fun ?(show = true) (wpts_group:group) (name :string) ?(alt=0.) ignore (mi#connect#activate ~callback:(set WGS84_dec)); let mi = GMenu.menu_item ~label:"WGS84_dms" ~packing:menu#append () in ignore (mi#connect#activate ~callback:(set WGS84_dms)); + let mi = GMenu.menu_item ~label:"LambertIIe" ~packing:menu#append () in + ignore (mi#connect#activate ~callback:(set LBT2e)); List.iter (fun (label, geo) -> let mi = GMenu.menu_item ~label ~packing:menu#append () in ignore (mi#connect#activate ~callback:(set (Bearing geo))))