!
! Simple color menus.
!
!
! A color menu for components with a simple "color" component.
!
define widget simple-color intmenu 'simple colors'
	title 'Change Color'
	line
	entry 'white' 'do_simple_color white'
	entry 'black' 'do_simple_color black'
	entry 'lavender' 'do_simple_color lavender'
	entry 'blue' 'do_simple_color blue'
	entry 'cyan' 'do_simple_color cyan'
	entry 'green' 'do_simple_color green'
	entry 'khaki' 'do_simple_color khaki'
	entry 'yellow' 'do_simple_color yellow'
	entry 'tan' 'do_simple_color tan'
	entry 'brown' 'do_simple_color brown'
	entry 'orange' 'do_simple_color orange'
	entry 'red' 'do_simple_color red'
	entry 'pink' 'do_simple_color "HotPink"'
	entry 'violet' 'do_simple_color violet'
	entry 'forest' 'do_simple_color forestgreen'
	entry 'Dark Pink' 'do_simple_color DeepPink1'
	entry 'orange' 'do_simple_color orange'
	entry 'DarkGoldenrod' 'do_simple_color DarkGoldenrod'
	entry 'dodger blue' 'do_simple_color DodgerBlue'
	entry 'cadet blue' 'do_simple_color CadetBlue'
	entry 'chartreuse' 'do_simple_color chartreuse'
	entry 'gold' 'do_simple_color gold'
	entry 'coral' 'do_simple_color coral'
	entry 'maroon' 'do_simple_color maroon'
	entry 'magenta' 'do_simple_color magenta'
	entry 'blue violet' 'do_simple_color BlueViolet'
	entry 'dark violet' 'do_simple_color DarkViolet'
	entry 'plum' 'do_simple_color plum'
	entry 'lt pink' 'do_simple_color LightPink'
	entry 'orange red' 'do_simple_color OrangeRed'
	entry 'medium blue' 'do_simple_color MediumBlue'
	entry 'light sky blue' 'do_simple_color LightSkyBlue'
	entry 'powder blue' 'do_simple_color PowderBlue'
	entry 'light slate blue' 'do_simple_color LightSlateBlue'
	entry 'cornflower blue' 'do_simple_color CornflowerBlue'
	entry 'medium turquoise' 'do_simple_color MediumTurquoise'
	entry 'aquamarine' 'do_simple_color Aquamarine'        
	submenu 'Gray scales' 'simple-gray'
endmenu

define widget simple-gray intmenu 'Grayscale submenu for simple color'
	title 'Gray scale colors'
	line
	entry '10-Percent' 'do_simple_color gray10'
	entry '20-Percent' 'do_simple_color gray20'
	entry '30-Percent' 'do_simple_color gray30'
	entry '40-Percent' 'do_simple_color gray40'
	entry '50-Percent' 'do_simple_color gray50'
	entry '60-Percent' 'do_simple_color gray60'
	entry '70-Percent' 'do_simple_color gray70'
	entry '80-Percent' 'do_simple_color gray80'
	entry '90-Percent' 'do_simple_color gray90'
endmenu


!
! Actually tweak the color.
!
procedure do_simple_color color string
	local colortweaker PDParam(icon_component,'color-tweaker')
	if (colortweaker <> "(Undefined)")
		#colortweaker #color
	else
		if (icon_component = 'global' or icon_component = 'GLOBAL')
			parameter global ta-color #color
		else
			parameter #icon_component color #color
		endif
	endif
endprocedure
