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