PRO favviewer,favimgfile ; common favview1,line,imgfilename,imgnumber,shdr,data,index,datatemp,percentcutoff,coorbutupx,coorbutupy,coorbutdownx,coorbutdowny,datazoom,zoomonce,datasend set_font, 10, /widget_only font = get_xfont(closest=9,/only_one,/fixed) percentcutoff=0.100 disp_size = 512 files = '' file=favimgfile infil=favimgfile spawn,['cat',file],line,/noshell nlines = n_elements(line) imgfilename=strarr(n_elements(line)) imgnumber=strarr(n_elements(line)) for i = 0, n_elements(line)-1 do begin pathend=strpos(line(i),' ') imgfilename(i) =strmid(line(i),0,pathend) imgnumber(i)=strmid(line(i),pathend+1,pathend+4) imgline = line(i) endfor base00=widget_base(/column,title='Favorite Image Viewer') xmenu, ['QUIT', 'Set Fav IMG File','Save as fits locally','Save as gif locally','Adjust Color','Personal Color Table','Send SOHO Archive-Planning','Send SOHO Archive-Summary'], $ base00, $ /row,/frame,xpad=2 base0=widget_base(base00, /row) base1=widget_base(base00, /row) base_group3=widget_base(base0, /row, /frame) base3_col1 = widget_base(base_group3, /column, /frame) lab_base3_col1 = widget_label(base3_col1, value = 'Image Header') id_headerlist = widget_list(base3_col1, ysize=30, value='------------------------No Header-----------------------') ;widget_control, id_info, /append ;------------------------- base_group4=widget_base(base1, /row, /frame) base4_col1 = widget_base(base_group4, /column, /frame) lab_base3_col1 = widget_label(base4_col1, value = 'Favorite Image List') id_imglist = widget_list(base4_col1, xsize=53,ysize=10, value=line) ;------------------------- base_group2 = widget_base(base0, /column, /frame) base2_col1 = widget_base(base_group2, /row, /frame) lab_base2_col1 = widget_label(base2_col1, value = 'Selected File') id_file = widget_text(base2_col1, xsize=50, ysize=1, value=infil) ;------------------------- base2_row2 = widget_base(base_group2, /column, /frame) lab_base2_row2 = widget_label(base2_row2, value = 'Image Display') drawbase1=WIDGET_BASE(base2_row2,/column,/frame,$ xsize=512,$ ysize=512) drawwidget1 = widget_draw(drawbase1,$ /scroll,$ xsize=512,$ ysize=512,$ x_scroll_size=512,$ y_scroll_size=512,/button_events,/motion_events) xmenu, ['171','195','284','1216','WL','1550','1600','1700'],base2_row2,$ title='TRACE Predefined Color Tables',$ /row,/frame,xpad=10 xmenu, ['Zoom','Normal'],base2_row2,/row,/frame,xpad=10 ;------------------------- lab_base3_col1 = widget_label(base3_col1, value = ' ') lab_base3_col1 = widget_label(base3_col1, value = ' ') xmenu, ['Scale The Image','Despike','Reset To Original'],base3_col1,/row,/frame,xpad=10 xmenu, ['Header Only'],base3_col1,/row,/frame,xpad=10,/exclusive lab_base3_col1 = widget_label(base3_col1, value = 'Scaling Cutoff Percentile') id_cut = widget_text(base3_col1, xsize=10, value=string(percentcutoff)) tvscl,[2,2] ;-------------------------- im_index = -1 all = {base:base0, $ id_headerlist: id_headerlist, $ id_file: id_file, $ id_cut: id_cut, $ drawbase1: drawbase1, $ id_imglist: id_imglist, $ disp_size: disp_size, $ junk:0} widget_control,set_uvalue=all, base00 widget_control,base0,/realize widget_control,set_uvalue=all, base00 xmanager, 'favview', base00 return end