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

[gcs] Fix map canvas center function double move

Browse Source
This commit is contained in:
Freek van Tienen
2018-08-20 14:37:35 -07:00
parent 805a6ae0d5
commit 4af596cb5f
1 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
sw/lib/ocaml/mapCanvas.ml
+5 -4
View File
@@ -391,10 +391,11 @@ object (self)
canvas#scroll_to (truncate xc) (truncate yc)
method center = fun wgs84 ->
self#moveto wgs84;
let sx_w, sy_w = Gdk.Drawable.get_size canvas#misc#window
and (x, y) = canvas#get_scroll_offsets in
canvas#scroll_to (x-sx_w/2) (y-sy_w/2)
let (xw, yw) = self#world_of wgs84 in
let (xc, yc) = canvas#world_to_window xw yw in
let (xt, yt) = ((truncate xc), (truncate yc)) in
let sx_w, sy_w = Gdk.Drawable.get_size canvas#misc#window in
canvas#scroll_to (xt-sx_w/2) (yt-sy_w/2)
method get_center = fun () ->
let (x, y) = canvas#get_scroll_offsets