method remove_click_action f =
    actions <- List.filter ((!=) f) actions ;
    if activated then self#obj >>> Button_click.unbind f