pro loadfits common ws_comm,namobj,solar_r,bunit,angle,xscale,centr_x, $ nfield,dtype,tdim, xmas , ddata ,status, wscan , base ,draw, $ list, fl_load ,fl_iv,nfile, twoscn ,exbeg,exend,wlsfrq ;pro loadfits wscan =-1 fl_load =0 nfile=pickfile(TITLE='Select Binary FITS file',filter='*.fit') if nfile eq '' then goto,x_ end fxbopen, fid, nfile,1 fhdr =fxbheader(fid) ndate=fxpar( fhdr ,'DATE_OBS') nobj=fxpar( fhdr ,'OBJECT') solar_r=fxpar( ...

... WVL : Z, ION : Fx : Tmax Trange : [description] : [match]' mtch_item =cw_bgroup(base_mtch,cc,/column,/nonexclusive, uvalue =' mtch_item ',$ /scroll,y_scroll_size=300,x_scroll_size=700,set_ value =oh,$ label_top=label_top) ; menu bar base_mbar=widget_base(base,frame=2,/row,/map, uvalue ='base_mbar') mbar_help=widget_button(base_mbar, value ='HELP', uvalue ='mbar_help') mbar_pars=widget_button(base_mbar, value ='PARAMETERS', ...

... PRO info11_event,event ;oblast profilu COMMON inner,myprofiles,profil,prof11,prof12,prof13,prof14,prof15,$ base1,prof16,base2,poloha2,ymyprof,zavedeno,jas,klin,jasnost COMMON udaje11,t11,t12,hranice1,hranice2,button1 COMMON obrazek,image COMMON pronovy,imageklin widget_control ,event.id,get_ uvalue = uvalue case uvalue of 'ZAVRI': BEGIN widget_control ,t11, get_value =hranice11 widget_control ,t12, ...