anchor.diff:  %% Description: Handling all non call/cast messages
   %%--------------------------------------------------------------------
   handle_info({'EXIT', Pid, Reason}, State) ->
  -	io:format("Received an exit signal from ~p with the reason: ~p~n", [Pid, Reason]),
  +	gen_event:notify(sm_msg_man, {"Received an exit signal from ~p with the reason: ~p", [Pid, Reason]}),
   	{noreply, State}.
   
   %%--------------------------------------------------------------------
  
positive.code: %% Description: Handling call messages
  %%--------------------------------------------------------------------
  handle_call({new_P, Mod, Func, Args}, _From, State) ->
  	io:format("Creating new Process from module ~p~n", [Mod]),
  	Pid = spawn_link(Mod, Func, Args),
  	io:format("Adding new process ~p~n", [Pid]),
  
  	NewProcesses = [Pid|State#sm_data.processes],
  	NewState = State#sm_data{processes = NewProcesses},
  
negative.code: %% Description: Starts the server
  %%--------------------------------------------------------------------
  start_link() ->
  	gen_event:start({local, sm_msg_man}),
  
  	gen_event:add_handler(sm_msg_man, terminal_logger, []),
  
  	gen_server:start_link({local, ?MODULE}, ?MODULE, [], []).
  
  stop() ->
  	gen_server:cast(?MODULE, stop),
  	gen_event:stop(sm_msg_man).
  
  %%====================================================================
  
  