external to_drawable : t -> Drawable.t = "shape_drawable_to_drawable"