;
function mkfloat,stringval,floatval,textwidget
;
; Return string stringval converted to float.
; If there is a problem in the conversion, return floatval.
; Reset value of textwidget before returning.
;
  on_ioerror,bad
  newval = float(stringval)
  widget_control,textwidget,set_value=string(newval)
  return,newval
  bad:
  print,'>>> Error converting string ',strcompress(stringval,/remove_all),$
    ' to float.'
  widget_control,textwidget,set_value=string(floatval)
  return,floatval
end