----- file created by makedoc on: Fri May 31 15:22:25 2013

----- Documentation for /scisoft/xop2.3/extensions/shadowvui/src/vui/cw_xshcol.pro -----
 NAME:
	CW_XShCol

 PURPOSE:
	CW_PICKFILE is a compound widget that permits the selection
	of a SHADOW column.

 CATEGORY:
	Shadow Compound widgets.

 CALLING SEQUENCE:
	Widget = CW_XshColParent)

 INPUTS:
	Parent:	  The ID of the parent widget.

 KEYWORD PARAMETERS:
	UVALUE:	The user value for the widget.
	VALUE:	The initial column.  
	TITLE:	A title or label.
	COLUMN:	If set, ranges the widgets in column format.
	FRAME:	Displays a frame around the compound widget.
	ZEROCOL: When set, displays also the zeroth column ('0: <none>')

 OUTPUTS:
	The ID of the created widget is returned.

 SIDE EFFECTS:

 PROCEDURE:
	Uses column_name to get the menu structure.

 EXAMPLE:
	;
	; To test cw_xshcol
	;
	Pro test_col_event, event
	Widget_Control, event.id, get_UValue=eventUValue
	if not(keyword_set(eventUValue)) then eventUValue=''
	
	stateid = Widget_Info(event.handler,/Child)
	Widget_Control, stateid, get_UValue=state, /No_Copy
	
	Case eventUValue OF
	    'DONE': Begin
		Widget_Control, event.top, /destroy
		Return
		End
	    'SET0': Begin
		Widget_Control,state.file,Set_Value=0
		End
	    'SET10': Begin
		Widget_Control,state.file,Set_Value=10
		End
	    'GETVALUE': Begin
		Widget_Control,state.file,Get_Value=aa
		help,aa
		message,/info,'>> value is: '+string(aa)
		end
	    else:
	ENDCASE
	Widget_Control, stateid, Set_UValue=state, /No_Copy
	END ; test_col_event
	;
	;
	Pro test_col
	tlb=widget_base(/col)
	wtmp=widget_base(tlb) ; to store state
	
	wtmp = Widget_Button(tlb,Value='DONE',UValue='DONE')
	wtmp = Widget_Button(tlb,Value='GETVALUE',UValue='GETVALUE')
	wtmp = Widget_Button(tlb,Value='Set Column 0',UValue='SET0')
	wtmp = Widget_Button(tlb,Value='Set Column 10',UValue='SET10')
	; the important part:
	wfile = cw_xshcol(tlb,Title='SHADOW col:',/Frame, Value=1,/ZeroCol)
	
	state = {file:wfile}
	
	widget_control,Widget_Info(tlb,/Child),set_uvalue=state
	widget_control,tlb,/realize
	xmanager, 'test_col', tlb
	end ; test_col
	
 MODIFICATION HISTORY:
 	Written by:	M. Sanchez del Rio, srio@esrf.fr
	July, 1996	
	97-12-05 First used version. Added ZEROCOL keyword. Documented.
	02-03-13 srio@esrf.fr str_sep substituted by strsplit

