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