PRO wimg_info2,GROUP=GROUP

COMMON info2_block,WInfoBase,p_info,int_base,image1,name1, $
                   sel_scale, sel_name

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

IF (XRegistered("wimg_info2") NE 0) THEN RETURN
;print,string_name
print,sel_array
help,sel_array

IF N_ELEMENTS(image) EQ 0 THEN BEGIN
    path_msg = GETENV('LASCO_MSG')
    tmp_msg  = path_msg + '/no_image.msg'   
    xdisplayfile,tmp_msg,height=10,width=45,title='Image Info'
    RETURN
ENDIF

print,sel_array

IF N_ELEMENTS(sel_array) EQ 0 THEN RETURN
IF N_ELEMENTS(dis.id_th) EQ 0 THEN dis.id_th = -1
 
IF N_ELEMENTS(string_name) EQ 0 THEN RETURN 
;IF (NOT string_name ) THEN RETURN
IF N_ELEMENTS(h_name) EQ 0 THEN RETURN
 
IF N_ELEMENTS(h_array) EQ 0 THEN handle_array = lonarr(1)
IF N_ELEMENTS(h_name) EQ 0 THEN handle_name = lonarr(1)
IF N_ELEMENTS(h_head) EQ 0 THEN handle_head = lonarr(1)
IF N_ELEMENTS(top_array) EQ 0 THEN top_array = HANDLE_CREATE()
IF N_ELEMENTS(top_name) EQ 0 THEN top_name = HANDLE_CREATE()
IF N_ELEMENTS(top_head) EQ 0 THEN top_head = HANDLE_CREATE()
 
message = load_message()
new_message  = ' '

xs = 30 ; XSIZE in widget WIDGET_TEXT

n_ext = 3
CASE !version.os OF
   'windows': del = '\'     ; Windows
     'MacOS': del = ':'     ; Macintoshes  
       'vms': del = ']'     ; VMS machines
ELSE        : del = '/'     ; UNIX machines
ENDCASE
 
IF n_elements(new_path) EQ 0 then cd, CURRENT = new_path
IF n_elements(name) EQ 0 THEN name = ' '

WInfoBase = WIDGET_BASE(TITLE = "LASCO/EIT Image Info ",/FRAME,/COLUMN)

wl1 = WIDGET_LABEL(WInfoBase,VALUE="Select image to scale to:")
    
lcol4    = WIDGET_BASE(WInfoBase, /FRAME, /ROW)
int_base = WIDGET_BASE(lcol4,/COLUMN)

sel_name = string_name(sel_array(0))
sel_scale = 0

FOR i=1,N_ELEMENTS(sel_array)-1 do begin
 sel_name = [sel_name,string_name(sel_array(i))]
 sel_scale= [sel_scale,0]
ENDFOR

p_info = CW_BGROUP(int_base, sel_name,UVALUE='SELECT', XSIZE=400, YSIZE=500, $
            /SCROLL,X_SCROLL_SIZE=300,Y_SCROLL_SIZE=200,/NONEXCLUSIVE)

sel_base = WIDGET_BASE(int_base,/ROW,/EXCLUSIVE)

p_go = WIDGET_BUTTON(int_base,UVALUE='OK',VALUE='Dismiss')

sws = ''
ml = strlen(message(0))
ws = (xs - ml) / 2
while strlen(sws) LT ws do sws = sws + ' ' ;Make ws chars long
message(0) = sws + message(0)


wiuv = { WInfoBase:WInfoBase, $
         Gimg:p_info    $
       }    

WIDGET_CONTROL, WInfoBase, /REALIZE

WIDGET_CONTROL, WInfoBase, SET_UVALUE = wiuv


;*** default select settings ***

WIDGET_CONTROL,p_info, SET_VALUE = sel_scale

XMANAGER,"wimg_info2",WInfoBase, $               
                EVENT_HANDLER = "wimg_info2_event", $
                GROUP_LEADER = GROUP, $
                /MODAL

END