Levente Uzonyi uploaded a new version of ShoutCore to project The Trunk:
http://source.squeak.org/trunk/ShoutCore-ul.14.mcz

==================== Summary ====================

Name: ShoutCore-ul.14
Author: ul
Time: 10 March 2010, 3:47:52.717 am
UUID: fab018c0-9fcb-8045-9290-9ef226fd2d86
Ancestors: ShoutCore-ar.13

- restore lost pragma colorization

=============== Diff against ShoutCore-ar.13 ===============

Item was changed:
  ----- Method: SHTextStylerST80 class>>subduedStyleTable (in category 'style table') -----
  subduedStyleTable
  	"color can be a valid argument to Color class>>colorFrom: , or nil to
  	use the editor text color.
  	Multiple emphases can be specified using an array e.g. #(bold italic).
  	If emphasis is not specified, #normal will be used.
  	if pixel height is not specified , then the editor font size will be used.
  	"
  								
  ^#(
  	"(symbol	color		[emphasisSymbolOrArray		[textStyleName [pixelHeight]]])"		
  	(default 								black 		)
  	(invalid 								red 			)
  	(excessCode 								red 			)
  	(comment 								(cyan muchDarker) 		)
  	(unfinishedComment 					(red muchDarker) 	italic)
  	(#'$'									(red muchDarker) 	)
  	(character								(red muchDarker) 	)
  	(integer									(red muchDarker) 	)
  	(number								(red muchDarker) 	)	
  	(#-										(red muchDarker) 	)
  	(symbol									(blue muchDarker)			)	
  	(stringSymbol							(blue muchDarker)			)	
  	(literalArray							(blue muchDarker)			)
  	(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)	)
  	(#super									(red muchDarker)	) 
  	(#true 									(red muchDarker)	)
  	(#false 									(red muchDarker)	)
  	(#nil 									(red muchDarker)	)
  	(#thisContext 							(red muchDarker)	)
  	(#return								(red muchDarker)	)
  	(patternArg 							(blue muchDarker)			)	
  	(methodArg 								(blue muchDarker)			)
  	(blockPatternArg 						(blue muchDarker)			)
  	(blockArg 								(blue muchDarker)			)
  	(argument 								(blue muchDarker)			)
  	(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		) 
  	(primitiveOrExternalCallEnd				black		)
  	(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		)
  	(blockPatternTempVar					gray		)
  	(instVar 								black		)
  	(workspaceVar							black		)
  	(undefinedIdentifier						red			)
  	(incompleteIdentifier					(gray darker) 	(italic underlined))
  	(tempVar								(gray darker)	)
  	(patternTempVar						(gray darker)	)
  	(poolConstant							(gray muchDarker)	)
  	(classVar								(gray muchDarker)	)
  	(globalVar								black		) )!