anchor.diff:  sleep(Pid, Time) ->
       Pid ! {'$gen_component', time, Time}.
   
  +%% @edoc change the handler for handling messages
  +change_handler(State, Handler) when is_atom(Handler) ->
  +    {'$gen_component', [{on_handler, Handler}], State}.
  +
   %================================================================================
   % generic framework
   %================================================================================
  
positive.code:             end
      end,
      try
          InitialState = Module:init(Args),
          loop(Module, InitialState, {Options, 0.0})
      catch
          throw:Term ->
              log:log(error,"exception in init/loop of ~p: ~p~n", [Module, Term]),
  
negative.code:         %io:format("ok is da~n"),
          ok
      end.
  
  handle_unknown_event(UnknownMessage, State, ComponentState,Module) ->
     log:log(error,"unknown message: ~p in Module: ~p ~n in State ~p ~n",[UnknownMessage,Module,State]),
  