;+
; Project     : SOHO - LASCO
;
; Name        : WDMEMORY 
;
; Purpose     : 
;
; Category    : 
;
; Explanation : 
;
; Syntax      : 
;
; Examples    : 
;
; Inputs      : None
;
; Opt. Inputs : None
;
; Outputs     : None
;
; Opt. Outputs: None
;
; Keywords    : None
;
; Common      : 
;
; Restrictions:                                  
;
; Side effects: Not known
;
; History     : Version 1, 02-Sep-1995, B Podlipnik. Written
;
; Contact     : BP, borut@lasco1.mpae.gwdg.de
;-

PRO wdmemory_event,event

WIDGET_CONTROL,event.id,GET_UVALUE=suv

CASE suv OF

     "OK": BEGIN

            WIDGET_CONTROL,event.top,/DESTROY
           END

 "CANCEL": BEGIN

            WIDGET_CONTROL,event.top,/DESTROY
           END
ELSE: 
ENDCASE

END


PRO WDMEMORY,dfiles

IF (XRegistered("wdmemory") NE 0) THEN RETURN

WDBase = WIDGET_BASE(TITLE = " WARNING ! ",/FRAME,/COLUMN)

w1 = WIDGET_BASE(WDBase,/COLUMN)
w_label= WIDGET_LABEL(w1,VALUE="Delete this file(s):")
w2 = WIDGET_BASE(WDBASE,/COLUMN)
w_text = WIDGET_TEXT(w2,XSIZE=38,YSIZE=150,YSCROLL_SIZE=10,VALUE=dfiles,/SCROLL)
w3  = WIDGET_BASE(WDBase, /COLUMN)
w4  = WIDGET_BASE(w3, /ROW)
b1  = WIDGET_BUTTON(w4,VALUE=' OK ',UVALUE='OK')
b2  = WIDGET_BUTTON(w4,VALUE=' Cancel ',UVALUE='CANCEL')


WIDGET_CONTROL,WDBase,/REALIZE

XMANAGER,"WDMEMORY",WDBase, $
                    EVENT_HANDLER = "wdmemory_event", $
                    GROUP_LEADER = GROUP, $
                    /MODAL
END