[supervision] force color format to #rrrrggggbbbb

This commit is contained in:
Gautier Hattenberger
2013-12-03 13:42:48 +01:00
parent 04954377db
commit 97394da057
+1 -1
View File
@@ -32,7 +32,7 @@ let gcs = Env.paparazzi_src // "sw/ground_segment/cockpit/gcs"
let regexp_space = Str.regexp "[ ]+" let regexp_space = Str.regexp "[ ]+"
let string_of_gdkcolor = fun c -> let string_of_gdkcolor = fun c ->
sprintf "#%2x%2x%2x" (Gdk.Color.red c) (Gdk.Color.green c) (Gdk.Color.blue c) sprintf "#%04x%04x%04x" (Gdk.Color.red c) (Gdk.Color.green c) (Gdk.Color.blue c)
let aircraft_sample = fun name ac_id -> let aircraft_sample = fun name ac_id ->
Xml.Element ("aircraft", Xml.Element ("aircraft",