Mirrors_Framework/paparazzi
1
0
Fork 0
mirror of https://github.com/paparazzi/paparazzi.git synced 2026-05-30 11:37:06 +08:00
Code Issues Actions 30 Packages Projects Releases Wiki Activity

[papget] fix warning

Browse Source
This commit is contained in:
Gautier Hattenberger
2014-08-26 18:21:06 +02:00
parent 92a4042ce8
commit 3f567d235a
1 changed files with 0 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
sw/lib/ocaml/papget_renderer.ml
-2
View File
@@ -158,7 +158,6 @@ end
(*************************** Gauge ***********************************) (*************************** Gauge ***********************************)
class canvas_gauge = fun ?(config=[]) canvas_group x y -> class canvas_gauge = fun ?(config=[]) canvas_group x y ->
let size = PC.get_prop "size" config "50." in let size = PC.get_prop "size" config "50." in
let text = PC.get_prop "text" config "" in
(*let text_props = [`ANCHOR `CENTER; `FILL_COLOR "white"] in*) (*let text_props = [`ANCHOR `CENTER; `FILL_COLOR "white"] in*)
let r1 = Pervasives.max 10. ((float_of_string size) /. 2.) in let r1 = Pervasives.max 10. ((float_of_string size) /. 2.) in
@@ -245,7 +244,6 @@ end
(*************************** Led ***********************************) (*************************** Led ***********************************)
class canvas_led = fun ?(config=[]) canvas_group x y -> class canvas_led = fun ?(config=[]) canvas_group x y ->
let size = float_of_string (PC.get_prop "size" config "15.") in let size = float_of_string (PC.get_prop "size" config "15.") in
let text = PC.get_prop "text" config "" in
let root = GnoCanvas.group ~x ~y canvas_group in let root = GnoCanvas.group ~x ~y canvas_group in