method activate_button =
    if activated
    then ()
    else List.iter (fun f -> self#obj >>> Button_click.bind f) actions