!
! A pulldown menu allowing a choice of color tables.
!
if (defined ('ui$widget_table:color-tables'))
	set wname 'default-Color-tables'
else
	set wname 'Color-tables'
endif

define widget #wname intmenu 'ctbl'
	title 'Color tables'
	line
	entry 'Black and white stepped' 'CTSet 16gray' \
		(PDParam(icon_component, 'color-table') = '16gray')
	entry 'Black and white log' 'CTSet newgray' \
		(PDParam(icon_component, 'color-table') = 'newgray')
	entry 'scook table' 'CTSet scook' \
		(PDParam(icon_component, 'color-table') = 'scook')
	entry 'scook32 table' 'CTSet scook32' \
		(PDParam(icon_component, 'color-table') = 'scook32')
	entry 'scook16 table' 'CTSet scook16' \
		(PDParam(icon_component, 'color-table') = 'scook16')
	entry 'Hot and cold table' 'CTSet hotcold' \
		(PDParam (icon_component, 'color-table') = 'hotcold')
	entry 'hotcold16' 'CTSet hotcold16' \
		(PDParam (icon_component, 'color-table') = 'hotcold16')
	entry 'Wild color table' 'CTSet wild' \
		(PDParam (icon_component, 'color-table') = 'wild')
	entry 'New wild color table' 'CTSet wild_new' \
		(PDParam (icon_component, 'color-table') = 'wild_new')
	entry 'DavidK wild color table' 'CTSet david_wild_new' \
		(PDParam (icon_component, 'color-table') = 'david_wild_new')
	entry 'acradar' 'CTSet acradar' \
		(PDParam (icon_component, 'color-table') = 'acradar')
	entry 'simple10' 'CTSet simple10' \
		(PDParam (icon_component, 'color-table') = 'simple10')
	entry 'simple5' 'CTSet simple5' \
		(PDParam (icon_component, 'color-table') = 'simple5')
endmenu


procedure CTSet table string
	parameter #icon_component color-table #table
endprocedure
