Mirrors_Framework/paparazzi
1
0
Fork 0
mirror of https://github.com/paparazzi/paparazzi.git synced 2026-06-07 00:53:41 +08:00
Code Issues Actions 26 Packages Projects Releases Wiki Activity

left and middle buttons exchanged

Browse Source
This commit is contained in:
Antoine Drouin
2006-05-28 13:13:46 +00:00
parent 416142f98c
commit e55760fc07
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
sw/lib/ocaml/mapWaypoints.ml
+4 -4
View File
@@ -108,11 +108,11 @@ class waypoint = fun (group:group) (name :string) ?(alt=0.) wgs84 ->
| `BUTTON_PRESS ev ->
begin
match GdkEvent.Button.button ev with
| 1 -> self#edit
| 2 -> self#edit
| 3 ->
if (GToolbox.question_box ~title:"Confirm delete" ~buttons:["Cancel";"Delete"] ~default:2 (sprintf "Delete '%s' ?" name)) = 2 then
self#delete
| 2 ->
| 1 ->
let x = GdkEvent.Button.x ev
and y = GdkEvent.Button.y ev in
x0 <- x; y0 <- y;
@@ -123,7 +123,7 @@ class waypoint = fun (group:group) (name :string) ?(alt=0.) wgs84 ->
end
| `MOTION_NOTIFY ev ->
let state = GdkEvent.Motion.state ev in
if Gdk.Convert.test_modifier `BUTTON2 state then begin
if Gdk.Convert.test_modifier `BUTTON1 state then begin
let x = GdkEvent.Motion.x ev
and y = GdkEvent.Motion.y ev in
let dx = geomap#current_zoom *. (x-. x0)
@@ -134,7 +134,7 @@ class waypoint = fun (group:group) (name :string) ?(alt=0.) wgs84 ->
x0 <- x; y0 <- y
end
| `BUTTON_RELEASE ev ->
if GdkEvent.Button.button ev = 2 then begin
if GdkEvent.Button.button ev = 1 then begin
item#ungrab (GdkEvent.Button.time ev);
moved <- true
end