function editstr2value(obj, min, max, type)
%EDITSTR2VALUE Set the value of an edit obj to its str2num(string)

%
% Copyright (c) 1995 by Claudio Rivetti and Mark Young
% claudio@alice.uoregon.edu,    mark@alice.uoregon.edu
%


if nargin < 1, error('Too few input arguments');end
if nargin > 4, error('Too many input arguments');end

if nargin == 1
  min=-inf;
  max=inf;
  type='FLOAT';
end

if nargin == 2
  max=inf;
  type='FLOAT';
end

if nargin == 3
  type='FLOAT';
end

value=str2num(get(obj, 'string'));

if isempty(value)
  value = 0;
end

if nargin == 3
  if value < min
    value=min;
  end

  if value > max
    value=max;
  end
end

if strcmp(upper(type), 'INT')
  value=round(value);
  str=int2str(value);
else
  str=num2str(value);
end

set(obj, 'string', str, 'value', value);


return