;
; NAME:
;	RDF_TABLE
;
; PURPOSE:
;	This routine displays the numerical values of an RDF image
;
; CATEGORY:
;	RDF display
;
; CALLING SEQUENCE:
;	RDF_TABLE, rdfarr, FRAME=frame
;
; INPUTS:
;	rdfarr: An array of RDF pointers, like the one returned from
;		READ_ALL_RDF
;
; KEYWORDS:
;	FRAME: The frame to display.  If not specified, the first frame
;		is displayed.
;
; OUTPUTS:
;	none
;
; SIDE EFFECTS:
;	The routine pops up a WIDGET_TABLE widget to display the image
;	values.  The table is not editable.
;
; RESTRICTIONS:
;	The TABLE widget is not editable.
;
; EXAMPLE:
;    Display the third frame of the rdf array
;	rdfarray = READ_ALL_RDF('test.rdf')
;	RDF_TABLE, rdfarray, FRAME=3
;
; MODIFICATION HISTORY
;	Written, MLT, April 1999
;

PRO rdf_table, rdfarr, FRAME=frame

IF (N_ELEMENTS(frame) EQ 0) THEN $
    frame = 0

IF frame GT N_ELEMENTS(rdfarr) THEN $
    MESSAGE, "RDF_TABLE:  Invalid frame specifier:  " + frame + " of " + $
	N_ELEMENTS(rdfarr)

w = WIDGET_BASE(TITLE='RDF Values')
t = WIDGET_TABLE(w, XSIZE=(*rdfarr[frame])->width(), $
	YSIZE=(*rdfarr[frame])->height(), $
	VALUE = (*rdfarr[frame])->getdata(), $
	X_SCROLL_SIZE=10, $
	Y_SCROLL_SIZE=20, $
	/RESIZEABLE_ROWS, $
	/RESIZEABLE_COLUMNS)

WIDGET_CONTROL, w, /REALIZE
END