subr sb_browse_time_txt_cb, k
 if k eq 4 then {
   dy = fix(xmtextfieldgetstring($sb_browse_time_txt(4))
   newdatedoy, dy
   return
 }
 if k le 2 then {
   ;read all 3 and make a new doy
   y = fix(xmtextfieldgetstring($sb_browse_time_txt(0))
   imy = fix(xmtextfieldgetstring($sb_browse_time_txt(1))
   idm = fix(xmtextfieldgetstring($sb_browse_time_txt(2))
   dy = doy(y,imy,idm)
 }
 ;check for silliness by running through newdatedoy
 newdatedoy, dy
 endsubr
 ;========================================================