subr fdmg_list_entry_cb
 zeroifundefined, $fdcontFlag
 if defined($fdmg_monthwidget) eq 0 then {
 compile_file, getenv('ANA_WLIB') + '/fdmg_monthwidgettool.ana'
 }
 xtpopdown,$fdmg_monthwidget	 ; so list loading goes faster
 $fdmg_month = $list_item
 if $fdcontFlag then files = sort(getfiles($fdmg_base + '/c' + $fdmg_month, 500)) else
   files = sort(getfiles($fdmg_base + '/m' + $fdmg_month, 500))
 nf = num_elem(files)
 xmsetlabel,$fdmg_month_select,$fdmg_month
 xmlistdeleteall,$fdmg_monthwidget
 for i = 0, nf - 1 do xmlistadditem,$fdmg_monthwidget,removepath(files(i))
 xtpopup,$fdmg_monthwidget
endsubr