$seekwidget = std_tlboard_2_setup('Seek Cotemporal', '$seek')
 ;seek value
 ix = 10		iy = 188
 fw=xmframe($seekwidget, 4, 4)
 xmposition,fw, ix, iy
 xmtextfieldsetstring,$seektext(1),'0'
 xmtextfieldsetstring,$seektext(2),string($seek_win)

 col = xmcolumns($seekwidget,0,0,1)
 xmposition,col,0,190
 sep = xmseparator(col)
 label = xmlabel(col, 'Dates & Times:', $f5)
 
 col2 = xmcolumns(col, 0, 0, 2)
 row1 = xmrows(col2, 0, 0, 2)
 label3 = xmlabel(row1,'Source:',$f8)
 w1 = eval(xmtextfieldgetstring($seektext(1)))
 w2 = eval(xmtextfieldgetstring($seektext(2)))
 $seek_time = xmlabel(row1, date_from_tai($view_tai(w1)),$f8)
 row2 = xmrows(col2, 0, 0, 2)
 label4 = xmlabel(row2,'Result:',$f8)
 $seek_matched_time = xmlabel(row2, date_from_tai($view_tai(w2)),$f8)

 sep2 = xmseparator(col)
 label5 = xmlabel(col, 'File Sets:',$f4)
 $seek_list = xmlist(col, 'seek_list_cb', 5, $f4, 'white')
 
 col3 = xmrows(col, 0, 0, 2)
 if defined(#version) then {
   but = xmbutton(col3, '  ', 'seek_add_cb', $f4, 'red')
   lab = xmlabel(col3, 'take from Movie Frame Selection', $f4)
   sep3 = xmseparator(col)
   check = xmcheckbox(col, '$seek_get_times = $radio_state', $f4, '', 'Reread observation info')
 }
 $seek_check = xmcheckbox(col, '', $f4, '', 'Original FOV & Scale')
 xmselectcolor, $seek_check(1),'red'
 xmtogglesetstate, $seek_check(1), 0
 
 ; we seek all browser archive files
 dir = getenv('BROWSER_SETS')
 if dir ne '' then
   fs1 = getmatchedfiles('^.browser_sets[0-9][0-9]*$',dir)
 else
   fs1 = 0
 fs2 = getmatchedfiles('^.browser_sets[0-9][0-9]*$','.')
 ncase isscalar(fs1)*2 + isscalar(fs2)
   fs = [sort(fs1),sort(fs2)]
   fs = sort(fs1)
   fs = sort(fs2)
   fs = 0
 endcase
 if not(isscalar(fs)) then {	 ; we found some
   $browser_sets = strarr(num_elem(fs))
   lun = get_lun()
   for i = 0,num_elem(fs) - 1 {
     f = fs(i)
     openr,lun,f
     h = ''
     readf,lun,h
     close,lun
     set = eval(strskp(f,'.browser_sets')) ; get the number
     $browser_sets(i) = f
     t,'found .browser_sets',string(set)
     h = h + ' (' + string(set) + ')'
     xmlistadditem,$seek_list,h
   }
 }
 $seek_get_times = 0
 xtpopup, $seekwidget
 scanpositions, $seekwidget, 'seekwidget', ix, iy
 if (ix ne 0 and iy ne 0) then xmposition, $seekwidget, ix, iy + $magic_mac_yoffset
 add_to_hideables, $seekwidget