let
display_message msg =
Cam_hooks
.display_message msg;
set_active_action_message msg