subr sb_widget
 ;the top level widget for Solar B data access
 if defined($sbwidget) 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') + '/solarbwidgettool.ana'
 } else { xtpopup, $sbwidget } 
 ;;xmposition, $sbwidget, !screen_width/2, !screen_height/3
 endsubr
 ;========================================================