method set_x      (x : int) : unit =
    self#set_style_property "left" (string_of_px x)