Skip to content

Commit

Permalink
[papget] fix warning
Browse files Browse the repository at this point in the history
  • Loading branch information
gautierhattenberger committed Aug 26, 2014
1 parent 92a4042 commit 3f567d2
Showing 1 changed file with 0 additions and 2 deletions.
2 changes: 0 additions & 2 deletions sw/lib/ocaml/papget_renderer.ml
Original file line number Diff line number Diff line change
Expand Up @@ -158,7 +158,6 @@ end
(*************************** Gauge ***********************************)
class canvas_gauge = fun ?(config=[]) canvas_group x y ->
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 r1 = Pervasives.max 10. ((float_of_string size) /. 2.) in
Expand Down Expand Up @@ -245,7 +244,6 @@ end
(*************************** Led ***********************************)
class canvas_led = fun ?(config=[]) canvas_group x y ->
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

Expand Down

0 comments on commit 3f567d2

Please sign in to comment.