let warning_message msg =
  Cam_hooks.warning_message msg;
  set_active_action_message msg