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

add GET_SETTING handling

Browse Source
This commit is contained in:
Pascal Brisset
2009-08-15 09:15:19 +00:00
parent 4fe5661963
commit 7b3fb9d676
1 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
sw/ground_segment/tmtc/settings.ml
+7 -2
View File
@@ -45,8 +45,13 @@ let one_ac = fun (notebook:GPack.notebook) ac_name ->
(* Call to ivy to set a value *)
let callback = fun idx value ->
let vs = ["ac_id", Pprz.String ac_id; "index", Pprz.Int idx;"value", Pprz.Float value] in
Ground_Pprz.message_send "dl" "DL_SETTING" vs in
let vs = ["ac_id", Pprz.String ac_id; "index", Pprz.Int idx] in
if classify_float value = FP_normal then
let vs' = ("value", Pprz.Float value) :: vs in
Ground_Pprz.message_send "dl" "DL_SETTING" vs'
else
Ground_Pprz.message_send "dl" "GET_DL_SETTING" vs in
(* Build the buttons and sliders *)
let xml = Xml.parse_file xml_file in