PRO UVALUE_REGION,xdim,ydim,vdim
;COMMON IDENT_REG,cursor,reset,textx,texty,etat,state, Inf,Xd,Xf,Yd,Yf 

if N_PARAMS() ne 3 Then BEGIN
        print,'UVALUE_REGION: enter 3 parameters'
        return
    end


state= {size_imx:0, size_imy:0, size_vis:0}

     state.size_imx = xdim

    state.size_imy = ydim

    state.size_vis = vdim

WIDGET_CONTROL,cursor,SET_Uvalue= state
WIDGET_CONTROL,reset,SET_Uvalue= state

end