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