anchor.diff:  %% =====================================================================
   %% Get the type info for the given block name 
   %% =====================================================================    
  -handle_call({get_type_info, BlockName}, _From, State) ->
  +handle_call({get_type_info, BlockNameStr}, _From, State) ->
     % Get the block_module (i.e. block code), for the given block
     % Block type info is in there.
  +  BlockName = list_to_atom(BlockNameStr),
     case block_server:get_value(BlockName, block_module) of
       {ok, BlockModule} ->
         Result = type_utils:type_info(BlockModule);
  
positive.code: %% Get a list of all block names
  %% =====================================================================    
  handle_call(get_block_names, _From, State) ->
    Result = block_supervisor:block_names(),
    {reply, Result, State};
  
  
  
negative.code: 
  %% Create a copy of a block
  -spec copy_block(Node :: node(),
                   BlockNameStr :: string(),
                   BlockDefn :: block_defn(),
                   InitAttribs :: list()) -> term().
  
  copy_block(Node, BlockNameStr, BlockDefn, InitAttribs) ->
    gen_server:call({?MODULE, Node}, 
                    {copy_block, BlockNameStr, BlockDefn, InitAttribs}).
  
  
  %% Delete a block
  -spec delete_block(Node :: node(),
                     BlockNameStr :: string()) -> term().
  
  delete_block(Node, BlockNameStr) ->
    gen_server:call({?MODULE, Node}, 
                    {delete_block, BlockNameStr}).
  
  
  %% Get block values
  -spec get_block(Node :: node(),
                  BlockNameStr :: string()) -> term().
  
  get_block(Node, BlockNameStr) ->
    gen_server:call({?MODULE, Node}, {get_block, BlockNameStr}).
  
  
  %% Get a block value
  -spec get_value(Node :: node(),
                  BlockNameStr :: string(),
                  ValueIdStr :: string()) -> term().
  
  get_value(Node, BlockNameStr, ValueIdStr) ->
    gen_server:call({?MODULE, Node}, {get_value, BlockNameStr, ValueIdStr}).
  
  
  %% Get list of block names
  -spec get_block_names(Node :: node()) -> list(string()).
  
  get_block_names(Node) ->
    gen_server:call({?MODULE, Node}, get_block_names).
  