let error_act_cb ac = 
  GToolbox.message_box "Error" 
    (Printf.sprintf "Action '%s' activated : no callback ?\n" ac#name)