<?xml version="1.0"?>

<st-source>
<time-stamp>From VisualWorks®, Pre-Release 7.5 (feb07.4) of February 26, 2007 on March 9, 2007 at 11:02:53 am</time-stamp>


<methods>
<class-id>UI.MotifWidgetPolicy class</class-id> <category>private-initializing</category>

<body package="UILooks-Motif" selector="initializeDefaultGenericColors">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 background put: (background := 
					((ColorValue lightYellow blendWith: ColorValue veryLightGray) blendWith: ColorValue veryLightGray));
"		matchAt: SymbolicPaint foreground put: (self makeForegroundColorFor: background);
		matchAt: SymbolicPaint selectionForeground put: ColorValue white;
		matchAt: SymbolicPaint selectionBackground put: (ColorValue brightness: 2/5);
		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: background);
		matchAt: SymbolicPaint shadow put: (self makeShadowColorFor: background);
		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</body>
</methods>

</st-source>
