'From etoys3.0 of 24 February 2008 [latest update: #1986] on 1 May 2008 at 2:45:13 am'!
"Change Set:		transWinColor-KR
Date:			1 May 2008
Author:			Korakurider

translate Windows Colors panel "!


!Object class methodsFor: 'window color' stamp: 'KR 5/1/2008 02:40'!
windowColorSpecification
	"Answer a WindowColorSpec object that declares my preference.
	This is a backstop for classes that don't otherwise define a preference."

	^ WindowColorSpec classSymbol: self name
		wording: 'Default' translatedNoop brightColor: #white
		pastelColor: #white
		helpMessage: 'Other windows without color preferences.' translatedNoop! !


!DualChangeSorter class methodsFor: 'window color' stamp: 'KR 5/1/2008 02:38'!
windowColorSpecification
	"Answer a WindowColorSpec object that declares my preference"

	^ WindowColorSpec classSymbol: self name  wording: 'Dual Change Sorter' translatedNoop brightColor: #lightBlue pastelColor: #paleBlue helpMessage: 'Lets you view and manipulate two change sets concurrently.' translatedNoop! !


!Preferences class methodsFor: 'window colors' stamp: 'KR 5/1/2008 02:42'!
windowSpecificationPanel
	"Put up a panel for specifying window colors"

	"Preferences windowSpecificationPanel"
	| aPanel buttonRow aButton aRow aSwatch aColor aWindow aMiniWorld aStringMorph |
	aPanel _ AlignmentMorph newColumn hResizing: #shrinkWrap; vResizing: #shrinkWrap;
		layoutInset: 0.

	aPanel addMorph: (buttonRow _ AlignmentMorph newRow color: (aColor _ Color tan lighter)).
	
	buttonRow addTransparentSpacerOfSize: 2@0.
	buttonRow addMorphBack: (SimpleButtonMorph new label: '?'; target: self; actionSelector: #windowColorHelp; setBalloonText: 'Click for an explanation of this panel' translated; color: Color veryVeryLightGray; yourself).
	buttonRow addTransparentSpacerOfSize: 8@0.
	#(	('Bright' 	installBrightWindowColors	yellow
					'Use standard bright colors for all windows.')
		('Pastel'		installPastelWindowColors	paleMagenta
					'Use standard pastel colors for all windows.')
		('White'	installUniformWindowColors		white
					'Use white backgrounds for all standard windows.')) translatedNoop do:

		[:quad |
			aButton _ (SimpleButtonMorph new target: self)
				label: quad first translated;
				actionSelector: quad second;
				color: (Color colorFrom: quad third);
				setBalloonText: quad fourth translated;
				yourself.
			buttonRow addMorphBack: aButton.
			buttonRow addTransparentSpacerOfSize: 10@0].

	self windowColorTable do:
		[:colorSpec | 
			aRow _ AlignmentMorph newRow color: aColor.
			aSwatch _ ColorSwatch new
				target: self;
				getSelector: #windowColorFor:;
				putSelector: #setWindowColorFor:to:;
				argument: colorSpec classSymbol;
				extent: (40 @ 20);
				setBalloonText: ('Click here to change the standard color to be used for {1} windows.' format: {colorSpec wording translated});
				yourself.
			aRow addMorphFront: aSwatch.
			aRow addTransparentSpacerOfSize: (12 @ 1).
			aRow addMorphBack: (aStringMorph _ StringMorph contents: colorSpec wording translated font: TextStyle defaultFont).
			aStringMorph setBalloonText: colorSpec helpMessage translated.
			aPanel addMorphBack: aRow].

	 Smalltalk isMorphic
                ifTrue:
                        [aWindow _ aPanel wrappedInWindowWithTitle: 'Window Colors' translated.
					" don't allow the window to be picked up by clicking inside "
					aPanel on: #mouseDown send: #yourself to: aPanel.
					self currentWorld addMorphCentered: aWindow.
					aWindow activateAndForceLabelToShow ]
                ifFalse:
                        [(aMiniWorld _ MVCWiWPasteUpMorph newWorldForProject: nil)
						addMorph: aPanel.
                           aMiniWorld startSteppingSubmorphsOf: aPanel.
                        MorphWorldView openOn: aMiniWorld
                                label: 'Window Colors' translated
                                extent: aMiniWorld fullBounds extent]! !


!PreferencesPanel class methodsFor: 'window color' stamp: 'KR 5/1/2008 02:40'!
windowColorSpecification
	"Answer a WindowColorSpec object that declares my preference"

	^ WindowColorSpec classSymbol: self name wording: 'Preferences Panel' translatedNoop brightColor: #(0.645 1.0 1.0)	pastelColor: #(0.886 1.0 1.0) helpMessage: 'A tool for expressing personal preferences for numerous options.' translatedNoop! !


!StringHolder class methodsFor: 'window color' stamp: 'KR 5/1/2008 02:36'!
windowColorSpecification
	"Answer a WindowColorSpec object that declares my preference"

	^ WindowColorSpec classSymbol: self name wording: 'Workspace' translatedNoop brightColor: #lightYellow pastelColor: #paleYellow helpMessage: 'A place for text in a window.' translatedNoop! !


!Browser class methodsFor: 'window color' stamp: 'KR 5/1/2008 02:37'!
windowColorSpecification
	"Answer a WindowColorSpec object that declares my preference"

	^ WindowColorSpec classSymbol: self name  wording: 'Browser' translatedNoop brightColor: #lightGreen pastelColor: #paleGreen helpMessage: 'The standard "system browser" tool that allows you to browse through all the code in the system' translatedNoop! !


!ChangeList class methodsFor: 'window color' stamp: 'KR 5/1/2008 02:37'!
windowColorSpecification
	"Answer a WindowColorSpec object that declares my preference"

	^ WindowColorSpec classSymbol: self name  wording: 'Change List' translatedNoop brightColor: #lightBlue pastelColor: #paleBlue helpMessage: 'A tool that presents a list of all the changes found in an external file.' translatedNoop! !


!ChangeSorter class methodsFor: 'window color' stamp: 'KR 5/1/2008 02:38'!
windowColorSpecification
	"Answer a WindowColorSpec object that declares my preference"

	^ WindowColorSpec classSymbol: self name  wording: 'Change Sorter' translatedNoop brightColor: #lightBlue pastelColor: #paleBlue helpMessage: 'A tool that lets you see the code for one change set at a time.' translatedNoop! !


!Debugger class methodsFor: 'window color' stamp: 'KR 5/1/2008 02:38'!
windowColorSpecification
	"Answer a WindowColorSpec object that declares my preference"

	^ WindowColorSpec classSymbol: self name  wording: 'Debugger' translatedNoop brightColor: #lightRed pastelColor: #veryPaleRed helpMessage: 'The system debugger.' translatedNoop! !


!FileContentsBrowser class methodsFor: 'window color' stamp: 'KR 5/1/2008 02:38'!
windowColorSpecification
	"Answer a WindowColorSpec object that declares my preference"

	^ WindowColorSpec classSymbol: self name wording: 'File Contents Browser' translatedNoop brightColor: #tan pastelColor: #paleTan helpMessage: 'Lets you view the contents of a file as code, in a browser-like tool.' translatedNoop! !


!FileList class methodsFor: 'window color' stamp: 'KR 5/1/2008 02:39'!
windowColorSpecification
	"Answer a WindowColorSpec object that declares my preference"

	^ WindowColorSpec classSymbol: self name  wording: 'File List' translatedNoop brightColor: #lightMagenta pastelColor: #paleMagenta helpMessage: 'A tool for looking at files' translatedNoop! !


!MessageSet class methodsFor: 'window color' stamp: 'KR 5/1/2008 02:40'!
windowColorSpecification
	"Answer a WindowColorSpec object that declares my preference"

	^ WindowColorSpec classSymbol: self name wording: 'Message List' translatedNoop brightColor: #lightBlue pastelColor: #paleBlue helpMessage: 'A list of messages (e.g. senders, implementors)' translatedNoop! !


!Lexicon class methodsFor: 'window color' stamp: 'KR 5/1/2008 02:39'!
windowColorSpecification
	"Answer a WindowColorSpec object that declares my preference"

	^ WindowColorSpec classSymbol: self name wording: 'Lexicon' translatedNoop brightColor: #(0.878 1.000 0.878) pastelColor: #(0.925 1.000 0.925) helpMessage: 'A tool for browsing the full protocol of a class.' translatedNoop! !


!InstanceBrowser class methodsFor: 'window color' stamp: 'KR 5/1/2008 02:39'!
windowColorSpecification
	"Answer a WindowColorSpec object that declares my preference"

	^ WindowColorSpec classSymbol: self name wording: 'Instance Browser' translatedNoop brightColor: #(0.806 1.0 1.0) pastelColor: #(0.925 1.000 1.0) helpMessage: 'A tool for browsing the full protocol of an instance.' translatedNoop! !


!MessageNames class methodsFor: 'window color' stamp: 'KR 5/1/2008 02:39'!
windowColorSpecification
	"Answer a WindowColorSpec object that declares my preference"

	^ WindowColorSpec classSymbol: self name wording: 'Message Names' translatedNoop brightColor: #(0.645 1.0 0.452) pastelColor: #(0.843 0.976 0.843) helpMessage: 'A tool finding, viewing, and editing all methods whose names contiane a given character sequence.' translatedNoop! !


!PackagePaneBrowser class methodsFor: 'window color' stamp: 'KR 5/1/2008 02:40'!
windowColorSpecification
	"Answer a WindowColorSpec object that declares my preference"

	^ WindowColorSpec classSymbol: self name wording: 'Package Browser' translatedNoop brightColor: #(1.0 1.0 0.6)	 pastelColor: #(0.976 0.976 0.835) helpMessage: 'A system browser with an extra pane at top-left for module.' translatedNoop! !


!SelectorBrowser class methodsFor: 'window color' stamp: 'KR 5/1/2008 02:36'!
windowColorSpecification
	"Answer a WindowColorSpec object that declares my preference"

	^ WindowColorSpec classSymbol: self name wording: 'Method Finder' translatedNoop brightColor: #lightCyan	pastelColor: #palePeach helpMessage: 'A tool for finding methods by giving sample arguments and values.' translatedNoop! !


!TestRunner class methodsFor: 'instance creation' stamp: 'KR 5/1/2008 02:35'!
windowColorSpecification
	"Answer a WindowColorSpec object that declares my preference"

	^ WindowColorSpec
		classSymbol: self name
		wording: 'TestRunner' translatedNoop
		brightColor: (Color r: 0.650 g: 0.753 b: 0.976)
		pastelColor: (Color r: 0.780 g: 0.860 b: 1.0)
		helpMessage: 'The Camp Smalltalk SUnit test tool' translatedNoop
! !


!TranscriptStream class methodsFor: 'window color' stamp: 'KR 5/1/2008 02:35'!
windowColorSpecification
	"Answer a WindowColorSpec object that declares my preference"

	^ WindowColorSpec classSymbol: self name wording: 'Transcript' translatedNoop brightColor: #lightOrange pastelColor: #paleOrange helpMessage: 'The system transcript' translatedNoop! !


!VersionsBrowser class methodsFor: 'window color' stamp: 'KR 5/1/2008 02:35'!
windowColorSpecification
	"Answer a WindowColorSpec object that declares my preference"

	^ WindowColorSpec classSymbol: self name wording: 'Versions Browser' translatedNoop brightColor: #(0.869 0.753 1.0)	pastelColor: #(0.919 0.853 1.0) helpMessage: 'A tool for viewing prior versions of a method.' translatedNoop! !


!ClassCommentVersionsBrowser class methodsFor: 'window color' stamp: 'KR 5/1/2008 02:38'!
windowColorSpecification
	"Answer a WindowColorSpec object that declares my preference"

	^ WindowColorSpec classSymbol: self name wording: 'Class Comment Versions Browser' translatedNoop brightColor: #(0.769 0.653 1.0)	pastelColor: #(0.819 0.753 1.0) helpMessage: 'A tool for viewing prior versions of a class comment.' translatedNoop! !