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