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