anchor.diff:            get_any_type/2,
             get_number/2,
             get_integer/2,
  +          get_pos_integer/2,
             get_integer_greater_than/3,
             get_integer_less_than/3,
             get_integer_range/4,
  
positive.code:           get_boolean/2,
            get_string/2,
            get_value/3,
            %add_exec_in/2,
            %del_exec_in/2,
            set_fixed_value/3,
            set_to_default/2, 
            set_to_defaults/1,
  
negative.code:   CheckType = fun is_integer/1,
    get_value(Inputs, ValueId, CheckType).
  
  
  %%
  %% Get a postitive (1...) integer input value and check for errors.
  %%
  -spec get_pos_integer(Inputs :: input_attribs(), 
                        ValueId :: value_id()) -> integer_config_value().
  
  get_pos_integer(Inputs, ValueId) ->
    CheckType = fun is_integer/1,
    case get_value(Inputs, ValueId, CheckType) of
      {error, Reason} -> 
        {error, Reason};
      {ok, Value} ->
        if (Value < 1 ) ->
          {error, range};
        true -> 
          {ok, Value}
        end
    end.
  
  
  %%
  %% Get an integer input value greater than minimum, and check for errors.
  %%
  