external set_state : [>`widget] obj -> state_type -> unit
      = "ml_gtk_widget_set_state"