let
warning_message msg =
Cam_hooks
.warning_message msg;
set_active_action_message msg