anchor.diff:  %% Description: Handling call messages
   %%--------------------------------------------------------------------
   handle_call({new_P, Mod, Func, Args}, _From, State) ->
  -	io:format("Creating new Process from module ~p~n", [Mod]),
  +	gen_event:notify(sm_msg_man, {"Creating new Process from module ~p", [Mod]}),
   	Pid = spawn_link(Mod, Func, Args),
  -	io:format("Adding new process ~p~n", [Pid]),
  +	gen_event:notify(sm_msg_man, {"Adding new process ~p", [Pid]}),
   
   	NewProcesses = [Pid|State#sm_data.processes],
   	NewState = State#sm_data{processes = NewProcesses},
  
positive.code: %% The return value is ignored.
  %%--------------------------------------------------------------------
  terminate(normal, _State) ->
  	io:format("~p stopping~n" ,[?MODULE]),
  	ok.
  
  %%--------------------------------------------------------------------
  
negative.code: %% Description: Handling all non call/cast messages
  %%--------------------------------------------------------------------
  handle_info({'EXIT', Pid, Reason}, State) ->
  	gen_event:notify(sm_msg_man, {"Received an exit signal from ~p with the reason: ~p", [Pid, Reason]}),
  	{noreply, State}.
  
  %%--------------------------------------------------------------------
  