[paparazzi-commits] [4822] add georef setting on Goto action

[Pascal Brisset]

Revision: 4822
          http://svn.sv.gnu.org/viewvc/?view=rev&root=paparazzi&revision=4822
Author:   hecto
Date:     2010-04-20 11:07:42 +0000 (Tue, 20 Apr 2010)
Log Message:
-----------
 add georef setting on Goto action 

Modified Paths:
--------------
    paparazzi3/trunk/sw/lib/ocaml/mapCanvas.ml

Modified: paparazzi3/trunk/sw/lib/ocaml/mapCanvas.ml
===================================================================
--- paparazzi3/trunk/sw/lib/ocaml/mapCanvas.ml  2010-04-20 07:58:20 UTC (rev 
4821)
+++ paparazzi3/trunk/sw/lib/ocaml/mapCanvas.ml  2010-04-20 11:07:42 UTC (rev 
4822)
@@ -742,6 +742,8 @@
       match GToolbox.input_string ~title:"Geo ref" ~text:"WGS84 " "Geo ref" 
with
        Some s ->
          let wgs84 = Latlong.of_string s in
+         if georef = None then
+           self#set_georef wgs84;
          self#moveto wgs84
       | None -> ()