subr lightsetup_3d_fits 
 ;read the name in the text field and check it out
 fname = xmtextfieldgetstring($lighttext11)
 fty = data_type(fname, h, params)
 if fty lt 0 then { errormess,sprintf('File not readable\n%s', fname)  return }
 ;check if a 3-D file
 if invalid_3d_check(params) then return
 xmtextfieldsetstring, $lighttext3, '0'
 xmtextfieldsetstring, $lighttext4, string(params(5)-1)
 xmtextfieldsetstring, $lighttext5, '1'
 endsubr
 ;==========================================================