PRO WLayout_event,event

@wload.com
@chandle.com
@lasco.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

            IF lo.cgrp EQ 0 THEN BEGIN
              frame = WHERE( string_name EQ name )
              frame = frame(0)
              ghandle,frame
              layout,image,name,head,frame,hdr=h
              tvscl_image,frame,0,dswitch=dis.ff_dswitch
            ENDIF ELSE BEGIN
              FOR i=0,n_elements(sel_array)-1 DO BEGIN
                 ghandle,sel_array(i)
                 layout,image,name,head,sel_array(i),hdr=h
                 tvscl_image,sel_array(i),0,dswitch=dis.ff_dswitch
              ENDFOR
            ENDELSE     
                   
            WIDGET_CONTROL,event.top,/DESTROY

           END

    "ON1": lo.cmask = 1
   "OFF1": lo.cmask = 0

    "ON2": lo.cgrid = 1
   "OFF2": lo.cgrid = 0
   
    "ON3": lo.clogo = 1    
   "OFF3": lo.clogo = 0

    "ON4": lo.cdate = 1
   "OFF4": lo.cdate = 0

    "ON5": lo.cid = 1
   "OFF5": lo.cid = 0

    "ON6": lo.cgrp = 0
   "OFF6": lo.cgrp = 1
              
 "CANCEL": BEGIN

            WIDGET_CONTROL,event.top,/DESTROY
           END

ELSE: donothing=0
ENDCASE


END


PRO WLayout

@wload.com
@chandle.com
@lasco.com

IF XRegistered("WLayout") NE 0 THEN RETURN

IF N_ELEMENTS(lo) EQ 0 THEN $
 lo = { layout1, cmask:0, cgrid:0, clogo:0, cdate:0, cid:0, cgrp:0 }

;lo.cdate = 0

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

wl = WIDGET_LABEL(Wdef_Base,Value=' Default values: ')

bc = WIDGET_BASE(WDef_Base,/ROW)

wl = WIDGET_LABEL(bc,VALUE='Occultuer Mask:      ')
bf = WIDGET_BASE(bc,/ROW,/EXCLUSIVE)
b4 = WIDGET_BUTTON(bf,VALUE='Yes',UVALUE='ON1')
b5 = WIDGET_BUTTON(bf,VALUE='No',UVALUE='OFF1')

be = WIDGET_BASE(Wdef_Base,/ROW)
wl = WIDGET_LABEL(be,VALUE='Sun Grid:            ')
bf = WIDGET_BASE(be,/ROW,/EXCLUSIVE)
b6 = WIDGET_BUTTON(bf,VALUE='Yes',UVALUE='ON2')
b7 = WIDGET_BUTTON(bf,VALUE='No',UVALUE='OFF2')

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

be = WIDGET_BASE(Wdef_Base,/ROW)
wl = WIDGET_LABEL(be,VALUE='Date and Time:       ')
bf = WIDGET_BASE(be,/ROW,/EXCLUSIVE)
b2 = WIDGET_BUTTON(bf,VALUE='Yes',UVALUE='ON4')
b3 = WIDGET_BUTTON(bf,VALUE='No',UVALUE='OFF4')

be = WIDGET_BASE(Wdef_Base,/ROW)
wl = WIDGET_LABEL(be,VALUE='Image ID:            ')
bf = WIDGET_BASE(be,/ROW,/EXCLUSIVE)
b10 = WIDGET_BUTTON(bf,VALUE='Yes',UVALUE='ON5')
b11 = WIDGET_BUTTON(bf,VALUE='No',UVALUE='OFF5')

be = WIDGET_BASE(Wdef_Base,/ROW,/FRAME)
wl = WIDGET_LABEL(be,VALUE='True for Image(s): ')
bf = WIDGET_BASE(be,/ROW,/EXCLUSIVE)
b12 = WIDGET_BUTTON(bf,VALUE='Single',UVALUE='ON6')
b13 = WIDGET_BUTTON(bf,VALUE='Group',UVALUE='OFF6')

bb = WIDGET_BASE(Wdef_Base,/ROW)
b0 = WIDGET_BUTTON(bb,VALUE='   OK   ',UVALUE='OK')
b1 = WIDGET_BUTTON(bb,VALUE='Cancel',UVALUE='CANCEL')


;
; set default values
;

;IF ld.net EQ 0 THEN b23 = b3 ELSE b23 = b2
IF lo.cmask EQ 0 THEN b45 = b5 ELSE b45 = b4
IF lo.cgrid EQ 0 THEN b67 = b7 ELSE b67 = b6
IF lo.clogo EQ 0 THEN b89 = b9 ELSE b89 = b8
IF lo.cdate  EQ 0 THEN b23 = b3 ELSE b23 = b2
IF lo.cid  EQ 0 THEN b01 = b11 ELSE b01 = b10
IF lo.cgrp  EQ 0 THEN b1213 = b12 ELSE b1213 = b13


WIDGET_CONTROL,b45,/SET_BUTTON
WIDGET_CONTROL,b67,/SET_BUTTON
WIDGET_CONTROL,b89,/SET_BUTTON
WIDGET_CONTROL,b23,/SET_BUTTON
WIDGET_CONTROL,b01,/SET_BUTTON
WIDGET_CONTROL,b1213,/SET_BUTTON
;
; Create structure 
;
wt2 = 123

;ids = { image:image, name:name, head:head, index:index }

WIDGET_CONTROL,Wdef_Base,/REALIZE

;WIDGET_CONTROL, Wdef_Base, SET_UVALUE = ids, /NO_COPY

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