subr sb_types_cb
 ;the top level widget for Solar B data access
 if defined($sbtypeswidget) eq 0 then {
 ;the compile_file is supposed to operate at top level and hence the edb's
 ;are temporary and don't add to our accumulation
 compile_file, getenv('ANA_WLIB') + '/solarbtypeswidgettool.ana'
 }
 xtpopup, $sbtypeswidget
 endsubr
 ;========================================================