PRO Wdefault_event,event

@wload.com

WIDGET_CONTROL,event.id,GET_UVALUE=uval
WIDGET_CONTROL,event.id,GET_VALUE=val
WIDGET_CONTROL,event.top,GET_UVALUE=uvs

CASE uval OF

   "ISIZE": BEGIN
             WIDGET_CONTROL,uvs.wbs, GET_VALUE = ssize
             ld.size = FIX(ssize(0))
            END

     "OK": BEGIN
            ;WIDGET_CONTROL,uvs.wt1,GET_VALUE=sdark
            ;ld.dark = FIX(sdark(0))
              CASE ld.size OF
                0: img_resize = 2
                1: img_resize = 1
                2: img_resize = .5
                3: img_resize = .25
                4: img_resize = .125
                5: img_resize = .0625
              ENDCASE

            WIDGET_CONTROL,event.top,/DESTROY
           END

    "YES": ld.net = 1
     "NO": ld.net = 0
           
  "DARKY": ld.dark = 1
  "DARKN": ld.dark = 0

   "BS0": ld.scl = 0	;cut_image
   "BS1": ld.scl = 1	;cut_image

   "BYT0": ld.byt = 0
   "BYT1": ld.byt = 1

 "CANCEL": BEGIN
            WIDGET_CONTROL,uvs.wt1,GET_VALUE=sdark
            ld.dark = FIX(sdark(0))

            WIDGET_CONTROL,event.top,/DESTROY
           END

  "HELP": BEGIN
              path_msg = GETENV('LASCO_MSG')
              tmp_msg  = path_msg + !delimiter + 'wdefault.msg'
              xdisplayfile,tmp_msg,height=20,width=65,title='Help'
          END

ELSE: donothing=0
ENDCASE


END


PRO Wdefault

@wload.com

IF XRegistered("Wdefault") NE 0 THEN RETURN

IF N_ELEMENTS(ld) EQ 0 THEN $
 ld = { load_defaults, net:0, dark:0, size:1, scl:0, byt:0 }


img_size = [' 2  ',' Full Size ',' 1/2  ',' 1/4  ',' 1/8  ',' 1/16 ']

Wdef_Base = WIDGET_BASE(TITLE = ' Default Settings',/FRAME,/COLUMN)

wl = WIDGET_LABEL(Wdef_Base,Value='Change default values: ')

bd = WIDGET_BASE(Wdef_Base,/ROW,/FRAME)
bl = WIDGET_LABEL(bd,VALUE='Image Size:')
wbs = CW_BSELECTOR2(bd, img_size, SET_VALUE=ld.size, UVALUE="ISIZE")

be = WIDGET_BASE(Wdef_Base,/ROW,/FRAME)
wl = WIDGET_LABEL(be,VALUE='Normalize exposure time:')
bf = WIDGET_BASE(be,/ROW,/EXCLUSIVE)
b2 = WIDGET_BUTTON(bf,VALUE='Yes',UVALUE='YES')
b3 = WIDGET_BUTTON(bf,VALUE='No',UVALUE='NO')

wt = WIDGET_BASE (Wdef_Base,/ROW,/FRAME)
wl = WIDGET_LABEL(wt,VALUE='Remove Camera Bias:    ')
bf = WIDGET_BASE(wt,/ROW,/EXCLUSIVE)
by = WIDGET_BUTTON(bf,VALUE='Yes',UVALUE='DARKY')
bn = WIDGET_BUTTON(bf,VALUE='No',UVALUE='DARKN')

;wt1= WIDGET_TEXT (wt,XSIZE=8,/EDITABLE,VALUE=STRING(ld.dark),UVALUE='DARK')

bc = WIDGET_BASE(Wdef_Base,/ROW,/FRAME)
wl = WIDGET_LABEL(bc,VALUE='Auto Scale:            ')
bf = WIDGET_BASE(bc,/ROW,/EXCLUSIVE)
b4 = WIDGET_BUTTON(bf,VALUE='Yes',UVALUE='BS1')
b5 = WIDGET_BUTTON(bf,VALUE='No',UVALUE='BS0')

be = WIDGET_BASE(Wdef_Base,/ROW,/FRAME)
wl = WIDGET_LABEL(be,VALUE='Data Type Byte:        ')
bf = WIDGET_BASE(be,/ROW,/EXCLUSIVE)
b6 = WIDGET_BUTTON(bf,VALUE='Yes',UVALUE='BYT1')
b7 = WIDGET_BUTTON(bf,VALUE='No',UVALUE='BYT0')

;be = WIDGET_BASE(Wdef_Base,/ROW,/FRAME)
;wl = WIDGET_LABEL(be,VALUE='Draw LASCO Logo:        ')
;bf = WIDGET_BASE(be,/ROW,/EXCLUSIVE)
;b8 = WIDGET_BUTTON(bf,VALUE='Yes',UVALUE='ON3')
;b9 = WIDGET_BUTTON(bf,VALUE='No',UVALUE='OFF3')

bb = WIDGET_BASE(Wdef_Base,/ROW)
b0 = WIDGET_BUTTON(bb,VALUE='  Dismiss  ',UVALUE='OK')
;b1 = WIDGET_BUTTON(bb,VALUE='Cancel',UVALUE='CANCEL')
b2 = WIDGET_BUTTON(bb,VALUE='Help',UVALUE='HELP')


;
; set default values
;

IF ld.net EQ 0 THEN b23 = b3 ELSE b23 = b2
IF ld.scl EQ 0 THEN b45 = b5 ELSE b45 = b4
IF ld.byt EQ 0 THEN b67 = b7 ELSE b67 = b6
;IF ld.clogo EQ 0 THEN b89 = b9 ELSE b89 = b8
IF ld.dark EQ 0 THEN byn = bn ELSE byn = by

WIDGET_CONTROL,b23,/SET_BUTTON        ; default No for normalize exp. time
WIDGET_CONTROL,b45,/SET_BUTTON
WIDGET_CONTROL,b67,/SET_BUTTON
;WIDGET_CONTROL,b89,/SET_BUTTON
WIDGET_CONTROL,byn,/SET_BUTTON

;
; Create structure 
;
wt2 = 123
ids = { $; wt1:wt1, $ ; widget text 1 ID
        wbs:wbs  $ ; widget cwb ID
      }

WIDGET_CONTROL,Wdef_Base,/REALIZE

WIDGET_CONTROL, Wdef_Base, SET_UVALUE = ids, /NO_COPY

XMANAGER,"Wdefault",Wdef_Base, $
		GROUP_LEADER=GROUP,/MODAL
END