pro save_event,event
COMMON all,draw1,draw2,cont1,cont2,savename
widget_control,event.id,get_uvalue=uvalue
case uvalue of

'OK1':begin
      widget_control,draw1,get_value=val1 & wset,val1 & x=tvrd()
      widget_control,savename,get_value=name
      write_gif,name(0),x
      widget_control,event.top,/destroy
      end

'OK2':begin
      widget_control,draw2,get_value=val2 & wset,val2 & x=tvrd()
      widget_control,savename,get_value=name
      write_gif,name(0),x
      widget_control,event.top,/destroy
      end

'CANCEL':widget_control,event.top,/destroy

endcase
end

pro load_event,event
COMMON all,draw1,draw2,cont1,cont2,savename
COMMON all2,lfield1,lfield2,lfield3,lfield4
COMMON buttons,f2,f3

widget_control,event.id,get_uvalue=uvalue
case uvalue of

'OK':begin
     widget_control,lfield1,get_value=prof1 & widget_control,lfield2,get_value=prof2
    ; widget_control,lfield3,get_value=kont1 & widget_control,lfield4,get_value=kont2
     widget_control,event.top,/destroy
     pol1=prof1(0) & pol2=prof2(0) ;& con1=kont1(0) & con2=kont2(0)

p1=readfits(pol1)
;c1=readfits(con1)
p2=readfits(pol2)
;c2=readfits(con2)

;
; tady se vybira a pocita hodnota continui con1 a con2
;lambd=p1(*,0)
;plcon=where(lambd GE 6559.7 AND lambd LE 6560.3)

;mom1=MOMENT(c1(*,1))
;plc1=mom1(0)
;mom2=MOMENT(c2(*,1))
;plc2=mom2(0)

;widget_control,cont1,set_value=string(plc1)
;widget_control,cont2,set_value=string(plc2)



;
;rac1=p1(*,1)/c1(*,1)
;rac2=p2(*,1)/c2(*,1)
rac1=p1(*,1) ;/float(plc1)
rac2=p2(*,1) ;/float(plc2)
;
;
c=(rac1-rac2)/(rac1+rac2)
;c=b(*,1)-a(*,1)
;c=b(*,1)/a(*,1)
;x=a(*,0)
x=p1(*,0)-6562.808

widget_control,draw1,get_value=val1 & wset,val1
;----------------
;    plot,-2>x<2,[-0.5,0.5],LINESTYLE=0
;    oplot,x,rac1-1,LINESTYLE=1
;    oplot,x,rac2-1,LINESTYLE=0
;----------------
;plot,-3>x<3,[0,1],LINESTYLE=0
maximum=max(rac1)
if max(rac2) gt maximum then maximum=max(rac2)
cislo=(maximum*100-((maximum*100) mod 20)+20)/100.0
plot,x,rac1,LINESTYLE=1,yrange=[0,cislo]
oplot,x,rac2,LINESTYLE=0


;wait,10
;pause
d=p1
d(*,1)=c
plus0=c
minus=c
;
path1=pol1
npath=STRLEN(pol1)
path2=path1;+' '
STRPUT,path2,'    ',npath-4
path1=STRCOMPRESS(path2)
IF KEYWORD_SET(file) THEN BEGIN
  writefits,file+'.fts',d
ENDIF
intp=0
intm=0
rp=WHERE(c LT 0,count)
IF count NE 0 THEN BEGIN
plus0(rp)=0
intp=INT_TABULATED(x,plus0)
ENDIF
;
rm=WHERE(c GE 0,count)
IF count NE 0 THEN BEGIN
minus(rm)=0
;int=INT_TABULATED(x,c)
intm=INT_TABULATED(x,minus)
ENDIF
;ab=[a(*,1),b(*,1),c]
ab=[MAX(c),MIN(c)]
miny=MIN(ab)
maxy=MAX(ab)

widget_control,draw2,get_value=val2 & wset,val2

plot,-5>x<3,[miny,maxy],  $
 ;!!!!!!!!!!!!!!
;plot,x,[miny,maxy],  $
         TITLE=path1+"  INTEGRATED P = "+string(intp)+" / "+string(intm), $
         XTITLE="!4k!3 [Angstrom.]", YTITLE="P ",/NODATA
oplot,x,c,LINESTYLE=0
oplot,[0,0],[-5,maxy],LINESTYLE=4
oplot,[-6,4],[0,0],LINESTYLE=4
;oplot,x,a(*,1),LINESTYLE=4
;oplot,x,b(*,1),LINESTYLE=1

widget_control,f2,sensitive=1
widget_control,f3,sensitive=1
     end

'CANCEL':widget_control,event.top,/destroy

'PICK':begin
       cesta=pickfile(/read,filter='*.fts')
       widget_control,widget_info(widget_info(event.id,/parent),/child),set_value=cesta
       end

endcase
end

pro xdividep_event,event
COMMON all,draw1,draw2,cont1,cont2,savename
COMMON all2,lfield1,lfield2,lfield3,lfield4
widget_control,event.id,get_uvalue=uvalue
case uvalue of

'LOAD':begin
       loadbase=widget_base(/column)
         loadbase1=widget_base(loadbase,/row)
            lfield1=cw_field(loadbase1,title='1ST PROFILE')
            lbut1=widget_button(loadbase1,value='CHOOSE A FILE',uvalue='PICK')
         loadbase2=widget_base(loadbase,/row)
            lfield2=cw_field(loadbase2,title='2ND PROFILE')
            lbut2=widget_button(loadbase2,value='CHOOSE A FILE',uvalue='PICK')
         ;loadbase3=widget_base(loadbase,/row)
         ;   lfield3=cw_field(loadbase3,title='1ST CONTINUUM')
         ;   lbut3=widget_button(loadbase3,value='CHOOSE A FILE',uvalue='PICK')
         ;loadbase4=widget_base(loadbase,/row)
         ;   lfield4=cw_field(loadbase4,title='2ND CONTINUUM')
         ;   lbut4=widget_button(loadbase4,value='CHOOSE A FILE',uvalue='PICK')
         loadbase5=widget_base(loadbase,/row)
            lbut5=widget_button(loadbase5,value='OK',uvalue='OK')
            lbut6=widget_button(loadbase5,value='CANCEL',uvalue='CANCEL')
       widget_control,loadbase,/realize
       xmanager,'load',loadbase

       end

'SAVE':begin
        widget_control,event.id,get_value=val
        val=fix(strmid(val(0),5,1))
        savebase=widget_base(/column)
          savename=cw_field(savebase,title='Name of file (*.gif):')
          savebase1=widget_base(savebase,/row)
             if val eq 1 then savebut1=widget_button(savebase1,value='OK',uvalue='OK1') $
                         else savebut1=widget_button(savebase1,value='OK',uvalue='OK2')
             savebut2=widget_button(savebase1,value='CANCEL',uvalue='CANCEL')
        widget_control,savebase,/realize
        xmanager,'save',savebase
        end

'QUIT':begin
       widget_control,event.top,/destroy
       end

endcase
end

pro xdividep
COMMON all,draw1,draw2,cont1,cont2,savename
COMMON buttons,f2,f3

base=widget_base(/row,mbar=bar)
 fmenu=widget_button(bar,value='FILE',/menu)
   f1=widget_button(fmenu,value='LOAD',uvalue='LOAD')
   f2=widget_button(fmenu,value='SAVE 1ST IMAGE',uvalue='SAVE')
   f3=widget_button(fmenu,value='SAVE 2ND IMAGE',uvalue='SAVE')
   f4=widget_button(fmenu,value='QUIT',uvalue='QUIT')

 base1=widget_base(base,/column)
   draw1=widget_draw(base1,xsize=400,ysize=400)
   ;base11=widget_base(base1,/row)
   ;  lab1=widget_label(base11,value='AVERAGE CONTINUUM')
   ;  cont1=widget_label(base11,value=' ',/frame,xsize=70)
   ;  cont2=widget_label(base11,value=' ',/frame,xsize=70)
 base2=widget_base(base,/column)
   draw2=widget_draw(base2,xsize=400,ysize=400)

widget_control,f2,sensitive=0
widget_control,f3,sensitive=0

widget_control,base,/realize
xmanager,'xdividep',base

end