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 25 Packages Projects Releases Wiki Activity

bug fixed for d&d from Messages

Browse Source
This commit is contained in:
Pascal Brisset
2008-11-27 21:50:46 +00:00
parent 58a2f72ab3
commit 80cdbd9933
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
sw/ground_segment/cockpit/papgets.ml
+4 -3
View File
@@ -136,17 +136,18 @@ let parse_message_dnd =
let sep = Str.regexp ":" in
fun s ->
match Str.split sep s with
[s; c; m; f] -> (s, c, m, f)
[s; c; m; f;scale] -> (s, c, m, f,scale)
| _ -> raise (Parse_message_dnd (Printf.sprintf "parse_dnd: %s" s))
let dnd_data_received = fun canvas_group context ~x ~y data ~info ~time ->
try (* With the format sent by Messages *)
let (sender, class_name, msg_name, field_name) = parse_message_dnd data#data in
let (sender, class_name, msg_name, field_name,scale) = parse_message_dnd data#data in
let attrs =
[ "type", "message_field";
"display", "text";
"x", sprintf "%d" x; "y", sprintf "%d" y ]
and props =
[ Papget_common.property "field" (sprintf "%s:%s" msg_name field_name) ] in
[ Papget_common.property "field" (sprintf "%s:%s" msg_name field_name);
Papget_common.property "scale" scale ] in
let papget_xml = Xml.Element ("papget", attrs, props) in
create canvas_group papget_xml
with