[Pharo-project] what happened with Shout colors in Pharo 1.1?

Ramon Leon ramon.leon at allresnet.com
Mon Oct 25 13:12:34 EDT 2010


On 10/23/2010 10:11 AM, Mariano Martinez Peck wrote:
> Exactly.
>
> Can you or Simon provide a script to set back the original colors?? So
> that we can apply this for next PharoDev images?  (or at least for my
> own images)
>
> Thanks
>
> Mariano

I just went back in the package history and found the point where Damien 
changed the colors and grabbed the previous version.  I have a 
ConfigurationOfDevelopment class that loads all my local packages, so I 
just added a method to it to reload the old colors.  Here it is...

setColors
	SHTextStylerST80 styleTable:
	#(
	"(symbol	color		[emphasisSymbolOrArray		[textStyleName [pixelHeight]]])"		
	(default 								black 		)
	(invalid 								red 			)
	(excessCode 								red 			)
	(comment 								(green muchDarker) 		italic)
	(unfinishedComment 					(red muchDarker) 	italic)
	(#'$'									(red muchDarker) 	)
	(character								(red muchDarker) 	)
	(integer									(red muchDarker) 	)
	(number								(red muchDarker) 	)	
	(#-										(red muchDarker) 	)
	(symbol									(blue muchDarker)			bold)	
	(stringSymbol							(blue muchDarker)			bold)	
	(literalArray							(blue muchDarker)			bold)
	(string									(magenta muchDarker)	normal)
	(unfinishedString						red			normal		)
	(assignment								nil			bold			)
	(ansiAssignment 						nil			bold)
	(literal									nil			italic)
	(keyword								(blue muchDarker)			)
	(binary 								(blue muchDarker)			)	
	(unary									(blue muchDarker)			)
	(incompleteKeyword						(gray muchDarker)			underlined)
	(incompleteBinary 						(gray muchDarker)			underlined)	
	(incompleteUnary						(gray muchDarker)			underlined)
	(undefinedKeyword						red			)
	(undefinedBinary 						red			)	
	(undefinedUnary						red			)													
	(patternKeyword 						nil			bold)
	(patternBinary 							nil			bold)
	(patternUnary							nil			bold)	
	(#self 									(red muchDarker)	bold)
	(#super									(red muchDarker)	bold)
	(#true 									(red muchDarker)	bold)
	(#false 									(red muchDarker)	bold)
	(#nil 									(red muchDarker)	bold)
	(#thisContext 							(red muchDarker)	bold)
	(#return								(red muchDarker)	bold)
	(patternArg 							(blue muchDarker)			italic)	
	(methodArg 								(blue muchDarker)			italic)
	(blockPatternArg 						(blue muchDarker)			italic)
	(blockArg 								(blue muchDarker)			italic)
	(argument 								(blue muchDarker)			italic)
	(blockArgColon							black		)
	(leftParenthesis							black		)
	(rightParenthesis						black		)
	(leftParenthesis1						(green muchDarker)		)
	(rightParenthesis1						(green muchDarker)		)
	(leftParenthesis2						(magenta muchDarker)		)
	(rightParenthesis2						(magenta muchDarker)		)
	(leftParenthesis3						(red muchDarker)		)
	(rightParenthesis3						(red muchDarker)		)
	(leftParenthesis4						(green darker)		)
	(rightParenthesis4						(green darker)		)
	(leftParenthesis5						(orange darker)		)
	(rightParenthesis5						(orange darker)		)
	(leftParenthesis6						(magenta darker)		)
	(rightParenthesis6						(magenta darker)		)
	(leftParenthesis7						blue		)
	(rightParenthesis7						blue		)
	(blockStart 								black		)
	(blockEnd 								black		)
	(blockStart1								(green muchDarker)			)
	(blockEnd1								(green muchDarker)			)
	(blockStart2								(magenta muchDarker)		)
	(blockEnd2								(magenta muchDarker)		)
	(blockStart3								(red muchDarker)		)
	(blockEnd3								(red muchDarker)		)
	(blockStart4								(green darker)		)
	(blockEnd4								(green darker)		)
	(blockStart5								(orange darker)		)
	(blockEnd5								(orange darker)		)
	(blockStart6								(magenta darker)		)
	(blockEnd6								(magenta darker)		)
	(blockStart7								blue		)
	(blockEnd7								blue		) 																																															 
		
	(arrayStart								black		)
	(arrayEnd								black		)
	(arrayStart1							black		)
	(arrayEnd1								black		)
	(leftBrace 								black		)
	(rightBrace 								black		)
	(cascadeSeparator 						black		)
	(statementSeparator 						black		)
	(externalCallType 						black		)
	(externalCallTypePointerIndicator 		black		)
	(primitiveOrExternalCallStart 			black	bold	)
	(primitiveOrExternalCallEnd				black	bold	)
	(methodTempBar							gray		)
	(blockTempBar 							gray		)
	(blockArgsBar							gray		)
	(primitive								(green muchDarker)		bold)
	(pragmaKeyword						(green muchDarker)		bold)
	(pragmaUnary							(green muchDarker)		bold)
	(pragmaBinary							(green muchDarker)		bold)									
	(externalFunctionCallingConvention		(green muchDarker)		bold)
	(module									(green muchDarker)		bold)
	(blockTempVar 							gray		italic)
	(blockPatternTempVar					gray		italic)
	(instVar 								black		bold)
	(workspaceVar							black		bold)
	(undefinedIdentifier						red			bold)
	(incompleteIdentifier					(gray darker) 	(italic underlined))
	(tempVar								(gray darker)	italic)
	(patternTempVar						(gray darker)	italic)
	(poolConstant							(gray darker)	italic)
	(classVar								(gray darker)	bold)
	(globalVar								black		bold) )

-- 
Ramon Leon
http://onsmalltalk.com




More information about the Pharo-dev mailing list