subr mvget_loadlist_cb
 ;assume a filename in the text field
 fname = xmtextfieldgetstring($mvgettext7)
 $mv_label = fname
 if num_elem(fname) le 0 then {
   errormess, 'file name is\nNULL (?)'  return }
 nim = filelist_widget(fname)
 if isarray(nim) then nim = nim(0)
 xmtextfieldsetstring, $mvgettext3, '0'
 xmtextfieldsetstring, $mvgettext4, string(nim-1)
 $mvget_files = $file_names
 mv_setsizes, 0, 0, nim, 1, 1, 1
 endsubr
 ;========================================================