subr imagemap_setrefexp_cb, win
 ;get the exposure from the view if available
 ;currently only for TRACE
 sw = string(win)
 if win eq $limbwinflag then {
   ;this is an exception that works the limb enhance tool options, here win
   ;is a flag and we have to get the real target win dynamically for $view_trace_info_flt_
   ; and $view_trace_info_int_
   w = getlimbenhancetarget()
 } else {
   w = win
 }
 if $view_data_type(w) eq 1 then {
  x = subsc(eval('$view_trace_info_flt_'+string(w)),0)
  xmtextfieldsetstring, subsc(eval('$imaptext'+sw),15), string(x)
  x = subsc(eval('$view_trace_info_int_'+string(w)),7)
  xmtextfieldsetstring, subsc(eval('$imaptext'+sw),19), string(x)
  
 }
 endsubr
 ;===============================================================================