'From VisualWorks® NonCommercial, 7.2 of November 3, 2003 on December 19, 2003 at 12:31:58 am'!


!UI.MotifWidgetPolicy class methodsFor: 'private-initializing'!

initializeDefaultGenericColors
	"
		WidgetPolicy initialize.
		WidgetPolicy subclasses do: [ :class | class initialize].
		Screen default flushPaintPreferencesCache.
		ScheduledControllers restore
	"

	| background |

	"color"
	self defaultColorWidgetColors
		matchAt: SymbolicPaint foreground put: ColorValue black;
		matchAt: SymbolicPaint background put: (background := 
					(ColorValue lightYellow blendWith: ColorValue veryLightGray));
		matchAt: SymbolicPaint foreground put: (self makeForegroundColorFor: background);
		matchAt: SymbolicPaint selectionForeground put: ColorValue white;
		matchAt: SymbolicPaint selectionBackground put: (ColorValue blue blendWith: ColorValue veryLightGray);
		matchAt: SymbolicPaint inactiveBackground put: background;
		matchAt: SymbolicPaint inactiveForeground put: ColorValue gray;
		matchAt: SymbolicPaint inactiveSelectionForeground put: ColorValue gray;
		matchAt: SymbolicPaint border put: ColorValue black;
		matchAt: SymbolicPaint hilite put: (self makeHiliteColorFor: (ColorValue brightness: 4/5));
		matchAt: SymbolicPaint shadow put: (self makeShadowColorFor: (ColorValue brightness: 4/5));
		matchAt: SymbolicPaint separator put: ColorValue black;
		matchAt: SymbolicPaint traversalHilite put: ColorValue yellow.

	"gray-scale"
	self defaultGrayWidgetColors
		matchAt: SymbolicPaint border put: ColorValue black;
		matchAt: SymbolicPaint background put: (background := ColorValue brightness: 4/5);
		matchAt: SymbolicPaint foreground put: (self makeForegroundColorFor: background);
		matchAt: SymbolicPaint selectionForeground put: ColorValue white;
		matchAt: SymbolicPaint selectionBackground put: ColorValue black;
		matchAt: SymbolicPaint inactiveBackground put: background;
		matchAt: SymbolicPaint inactiveForeground put: (ColorValue brightness: 15/32);
		matchAt: SymbolicPaint inactiveSelectionForeground put: (ColorValue brightness: 15/32);
		matchAt: SymbolicPaint hilite put: (self makeHiliteColorFor: background);
		matchAt: SymbolicPaint shadow put: (self makeShadowColorFor: background);
		matchAt: SymbolicPaint separator put: ColorValue black;
		matchAt: SymbolicPaint traversalHilite put: ColorValue gray.

	"monochrome"
	self defaultMonochromeWidgetColors
		matchAt: SymbolicPaint border put: ColorValue black;
		matchAt: SymbolicPaint background put: (background := ColorValue white);
		matchAt: SymbolicPaint foreground put: (self makeForegroundColorFor: background);
		matchAt: SymbolicPaint selectionForeground put: ColorValue white;
		matchAt: SymbolicPaint selectionBackground put: ColorValue black;
		matchAt: SymbolicPaint inactiveBackground put: background;
		matchAt: SymbolicPaint inactiveForeground put: ColorValue gray;
		matchAt: SymbolicPaint inactiveSelectionForeground put: ColorValue gray;
		matchAt: SymbolicPaint hilite put: (self makeHiliteColorFor: background);
		matchAt: SymbolicPaint shadow put: (self makeShadowColorFor: background);
		matchAt: SymbolicPaint separator put: ColorValue black;
		matchAt: SymbolicPaint traversalHilite put: ColorValue gray! !
