The Trunk: System-mt.879.mcz

Marcel Taeumel uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-mt.879.mcz

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

Name: System-mt.879
Author: mt
Time: 11 August 2016, 4:44:00.091564 pm
UUID: df830079-6fa6-5840-ae31-b9ad40f584c0
Ancestors: System-mt.878

Text action color in UI themes.

=============== Diff against System-mt.878 ===============

Item was changed:
  ----- Method: CommunityTheme class>>addDarkSyntaxHighlighting: (in category 'instance creation') -----
  addDarkSyntaxHighlighting: aUserInterfaceTheme
  "self createDark apply."
  | normal bold italic underlined darkMap | normal  := TextEmphasis normal.  bold:=TextEmphasis bold.  italic:=TextEmphasis italic.  underlined := TextEmphasis underlined.  darkMap := StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 9.
+ aUserInterfaceTheme
+ set: #color for: #TextAction to: self dbBlue;
+
- aUserInterfaceTheme
  set: #default for: #SHTextStylerST80 to: {self dbForeground};
  set: #invalid for: #SHTextStylerST80 to: {self dbInvalid};
  set: #excessCode for: #SHTextStylerST80 to: {self dbInvalid twiceDarker};
  "Descriptive text for humans, italicized."
  set: #comment for: #SHTextStylerST80 to: {self dbComment. italic};
  set: #unfinishedComment for: #SHTextStylerST80 to: {self dbComment darker. italic};
  set: #'$' for: #SHTextStylerST80 to: {self dbConstant};
  set: #character for: #SHTextStylerST80 to: {self dbConstant};
  set: #integer for: #SHTextStylerST80 to: {self dbConstant};
  set: #number for: #SHTextStylerST80 to: {self dbConstant};
  set: #- for: #SHTextStylerST80 to: {self dbForeground. bold};
  set: #= for: #SHTextStylerST80 to: {self dbForeground. bold};
  set: #symbol for: #SHTextStylerST80 to: {self dbBedrock};
  set: #stringSymbol for: #SHTextStylerST80 to: {self dbBedrock};
  set: #literalArray for: #SHTextStylerST80 to: {self dbForeground};
  set: #string for: #SHTextStylerST80 to: {self dbConstant};
  set: #unfinishedString for: #SHTextStylerST80 to: {self dbConstant darker};
  set: #assignment for: #SHTextStylerST80 to: {nil. bold};
  set: #ansiAssignment for: #SHTextStylerST80 to: {nil. bold};
  set: #literal for: #SHTextStylerST80 to: {nil. bold};
  set: #keyword for: #SHTextStylerST80 to: {self dbMessage};
  set: #binary for: #SHTextStylerST80 to: {self dbForeground. bold};
  set: #unary for: #SHTextStylerST80 to: {self dbMessage};
  set: #incompleteKeyword for: #SHTextStylerST80 to: {self dbMessage darker. {underlined. bold}};
  set: #incompleteBinary for: #SHTextStylerST80 to: {self dbMessage darker. underlined};
  set: #incompleteUnary for: #SHTextStylerST80 to: {self dbMessage darker. underlined};
  set: #undefinedKeyword for: #SHTextStylerST80 to: {self dbInvalid};
  set: #undefinedBinary for: #SHTextStylerST80 to: {self dbInvalid};
  set: #undefinedUnary for: #SHTextStylerST80 to: {self dbInvalid};
  "Delineate the selector (good for new users), and make the method look like a mini-document with a title."
  set: #patternKeyword for: #SHTextStylerST80 to: {self dbMessage lighter.  {bold. underlined}};
  set: #patternBinary for: #SHTextStylerST80 to: {nil. bold};
  set: #patternUnary for: #SHTextStylerST80 to: {self dbMessage lighter.  {bold. underlined}};
  set: #self for: #SHTextStylerST80 to: {self dbBedrock. bold};
  set: #super for: #SHTextStylerST80 to: {self dbBedrock. bold};
  set: #true for: #SHTextStylerST80 to: {self dbBedrock. bold};
  set: #false for: #SHTextStylerST80 to: {self dbBedrock. bold};
  set: #nil for: #SHTextStylerST80 to: {self dbBedrock. bold};
  set: #thisContext for: #SHTextStylerST80 to: {self dbBedrock. bold};
  set: #return for: #SHTextStylerST80 to: {self dbForeground. bold};
  set: #patternArg for: #SHTextStylerST80 to: {self dbSelection twiceLighter. TextEmphasis normal. "darkMap"};
  set: #methodArg for: #SHTextStylerST80 to: {self dbSelection twiceLighter. TextEmphasis normal. "darkMap"};
  set: #blockPatternArg for: #SHTextStylerST80 to: {self dbSelection twiceLighter};
  set: #blockArg for: #SHTextStylerST80 to: {self dbSelection twiceLighter};
  set: #argument for: #SHTextStylerST80 to: {self dbSelection twiceLighter};
  set: #blockArgColon for: #SHTextStylerST80 to: {self dbBedrock};
  set: #leftParenthesis for: #SHTextStylerST80 to: {self dbBedrock};
  set: #rightParenthesis for: #SHTextStylerST80 to: {self dbBedrock};
  set: #leftParenthesis1 for: #SHTextStylerST80 to: {self dbGreen};
  set: #rightParenthesis1 for: #SHTextStylerST80 to: {self dbGreen};
  set: #leftParenthesis2 for: #SHTextStylerST80 to: {self dbPurple};
  set: #rightParenthesis2 for: #SHTextStylerST80 to: {self dbPurple};
  set: #leftParenthesis3 for: #SHTextStylerST80 to: {self dbRed};
  set: #rightParenthesis3 for: #SHTextStylerST80 to: {self dbRed};
  set: #leftParenthesis4 for: #SHTextStylerST80 to: {self dbGreen};
  set: #rightParenthesis4 for: #SHTextStylerST80 to: {self dbGreen};
  set: #leftParenthesis5 for: #SHTextStylerST80 to: {self dbOrange};
  set: #rightParenthesis5 for: #SHTextStylerST80 to: {self dbOrange};
  set: #leftParenthesis6 for: #SHTextStylerST80 to: {self dbPurple};
  set: #rightParenthesis6 for: #SHTextStylerST80 to: {self dbPurple};
  set: #leftParenthesis7 for: #SHTextStylerST80 to: {self dbBlue};
  set: #rightParenthesis7 for: #SHTextStylerST80 to: {self dbBlue};
  set: #blockStart for: #SHTextStylerST80 to: {self dbBedrock};
  set: #blockEnd for: #SHTextStylerST80 to: {self dbBedrock};
  set: #blockStart1 for: #SHTextStylerST80 to: {self dbGreen};
  set: #blockEnd1 for: #SHTextStylerST80 to: {self dbGreen};
  set: #blockStart2 for: #SHTextStylerST80 to: {self dbPurple};
  set: #blockEnd2 for: #SHTextStylerST80 to: {self dbPurple};
  set: #blockStart3 for: #SHTextStylerST80 to: {self dbRed};
  set: #blockEnd3 for: #SHTextStylerST80 to: {self dbRed};
  set: #blockStart4 for: #SHTextStylerST80 to: {self dbGreen};
  set: #blockEnd4 for: #SHTextStylerST80 to: {self dbGreen};
  set: #blockStart5 for: #SHTextStylerST80 to: {self dbOrange};
  set: #blockEnd5 for: #SHTextStylerST80 to: {self dbOrange};
  set: #blockStart6 for: #SHTextStylerST80 to: {self dbPurple};
  set: #blockEnd6 for: #SHTextStylerST80 to: {self dbPurple};
  set: #blockStart7 for: #SHTextStylerST80 to: {self dbBlue};
  set: #blockEnd7 for: #SHTextStylerST80 to: {self dbBlue};
  set: #arrayStart for: #SHTextStylerST80 to: {self dbBedrock};
  set: #arrayEnd for: #SHTextStylerST80 to: {self dbBedrock};
  set: #arrayStart1 for: #SHTextStylerST80 to: {self dbForeground};
  set: #arrayEnd1 for: #SHTextStylerST80 to: {self dbForeground};
  set: #byteArrayStart for: #SHTextStylerST80 to: {self dbForeground};
  set: #byteArrayEnd for: #SHTextStylerST80 to: {self dbForeground};
  set: #byteArrayStart1 for: #SHTextStylerST80 to: {self dbForeground};
  set: #byteArrayEnd1 for: #SHTextStylerST80 to: {self dbForeground};
  set: #leftBrace for: #SHTextStylerST80 to: {self dbForeground};
  set: #rightBrace for: #SHTextStylerST80 to: {self dbForeground};
  set: #cascadeSeparator for: #SHTextStylerST80 to: {self dbForeground};
  set: #statementSeparator for: #SHTextStylerST80 to: {self dbForeground};
  set: #externalCallType for: #SHTextStylerST80 to: {self dbForeground};
  set: #externalCallTypePointerIndicator for: #SHTextStylerST80 to: {self dbForeground};
  set: #primitiveOrExternalCallStart for: #SHTextStylerST80 to: {self dbForeground};
  set: #primitiveOrExternalCallEnd for: #SHTextStylerST80 to: {self dbForeground};
  set: #methodTempBar for: #SHTextStylerST80 to: {self dbBedrock};
  set: #blockTempBar for: #SHTextStylerST80 to: {self dbBedrock};
  set: #blockArgsBar for: #SHTextStylerST80 to: {self dbBedrock};
  set: #primitive for: #SHTextStylerST80 to: {self dbGreen lighter. bold};
  set: #pragmaKeyword for: #SHTextStylerST80 to: {self dbGreen. bold};
  set: #pragmaUnary for: #SHTextStylerST80 to: {self dbGreen. bold};
  set: #pragmaBinary for: #SHTextStylerST80 to: {self dbGreen. bold};
  set: #externalFunctionCallingConvention for: #SHTextStylerST80 to: {self dbGreen. bold};
  set: #module for: #SHTextStylerST80 to: {self dbGreen. bold};
  set: #blockTempVar for: #SHTextStylerST80 to: {self dbLocal. italic};
  set: #blockPatternTempVar for: #SHTextStylerST80 to: {self dbLocal. italic};
  set: #instVar for: #SHTextStylerST80 to: {self dbYellow. normal };
  set: #workspaceVar for: #SHTextStylerST80 to: {self dbLocal. italic};
  set: #undefinedIdentifier for: #SHTextStylerST80 to: {self dbInvalid};
  set: #incompleteIdentifier for: #SHTextStylerST80 to: {self dbGray. underlined};
  set: #tempVar for: #SHTextStylerST80 to: {self dbLocal. italic};
  set: #patternTempVar for: #SHTextStylerST80 to: {self dbLocal. italic};
  set: #poolConstant for: #SHTextStylerST80 to: {self dbConstant };
  set: #classVar for: #SHTextStylerST80 to: {self dbReference};
  set: #globalVar for: #SHTextStylerST80 to: {self dbClass. normal}.
  "And the text differ"
  aUserInterfaceTheme
  set: #insertTextAttributes for: #TextDiffBuilder to: { TextColor color: self dbRed };
  set: #removeTextAttributes for: #TextDiffBuilder to: { TextEmphasis struckOut. TextColor color: self dbBlue };
  set: #normalTextAttributes for: #TextDiffBuilder to: { TextEmphasis normal }.!

Item was changed:
  ----- Method: MonokaiTheme class>>addDarkSyntaxHighlighting: (in category 'instance creation') -----
  addDarkSyntaxHighlighting: theme
  "self createDark apply."
+ theme
+ set: #color for: #TextAction to: self blue;
+
- theme
  set: #default for: #SHTextStylerST80 to: {self foregroundColor};
  set: #invalid for: #SHTextStylerST80 to: {self red};
  set: #excessCode for: #SHTextStylerST80 to: {self red};
  set: #comment for: #SHTextStylerST80 to: {self commentColor};
  set: #unfinishedComment for: #SHTextStylerST80 to: {self red. TextEmphasis italic};
  set: #'$' for: #SHTextStylerST80 to: {self red};
  set: #character for: #SHTextStylerST80 to: {self numberColor};
  set: #integer for: #SHTextStylerST80 to: {self numberColor};
  set: #number for: #SHTextStylerST80 to: {self numberColor};
  set: #- for: #SHTextStylerST80 to: {self red};
  set: #symbol for: #SHTextStylerST80 to: {self blue};
  set: #stringSymbol for: #SHTextStylerST80 to: {self blue};
  set: #literalArray for: #SHTextStylerST80 to: {self blue};
  set: #string for: #SHTextStylerST80 to: {self stringColor. TextEmphasis normal};
  set: #unfinishedString for: #SHTextStylerST80 to: {self red. TextEmphasis normal};
  set: #assignment for: #SHTextStylerST80 to: {nil. TextEmphasis bold};
  set: #ansiAssignment for: #SHTextStylerST80 to: {nil. TextEmphasis bold};
  set: #literal for: #SHTextStylerST80 to: {nil. TextEmphasis italic};
  set: #keyword for: #SHTextStylerST80 to: {self blue};
  set: #binary for: #SHTextStylerST80 to: {self blue};
  set: #unary for: #SHTextStylerST80 to: {self blue};
  set: #incompleteKeyword for: #SHTextStylerST80 to: {self foregroundColor. TextEmphasis underlined};
  set: #incompleteBinary for: #SHTextStylerST80 to: {self foregroundColor. TextEmphasis underlined};
  set: #incompleteUnary for: #SHTextStylerST80 to: {self foregroundColor. TextEmphasis underlined};
  set: #undefinedKeyword for: #SHTextStylerST80 to: {self red};
  set: #undefinedBinary for: #SHTextStylerST80 to: {self red};
  set: #undefinedUnary for: #SHTextStylerST80 to: {self red};
  set: #patternKeyword for: #SHTextStylerST80 to: {nil. TextEmphasis bold};
  set: #patternBinary for: #SHTextStylerST80 to: {nil. TextEmphasis bold};
  set: #patternUnary for: #SHTextStylerST80 to: {nil. TextEmphasis bold};
  set: #self for: #SHTextStylerST80 to: {self red};
  set: #super for: #SHTextStylerST80 to: {self red};
  set: #true for: #SHTextStylerST80 to: {self red};
  set: #false for: #SHTextStylerST80 to: {self red};
  set: #nil for: #SHTextStylerST80 to: {self red};
  set: #thisContext for: #SHTextStylerST80 to: {self red};
  set: #return for: #SHTextStylerST80 to: {self red};
  set: #patternArg for: #SHTextStylerST80 to: {self blue};
  set: #methodArg for: #SHTextStylerST80 to: {self blue};
  set: #blockPatternArg for: #SHTextStylerST80 to: {self blue};
  set: #blockArg for: #SHTextStylerST80 to: {self blue};
  set: #argument for: #SHTextStylerST80 to: {self blue};
  set: #blockArgColon for: #SHTextStylerST80 to: {self foregroundColor};
  set: #leftParenthesis for: #SHTextStylerST80 to: {self foregroundColor};
  set: #rightParenthesis for: #SHTextStylerST80 to: {self foregroundColor};
  set: #leftParenthesis1 for: #SHTextStylerST80 to: {self green};
  set: #rightParenthesis1 for: #SHTextStylerST80 to: {self green};
  set: #leftParenthesis2 for: #SHTextStylerST80 to: {self magenta};
  set: #rightParenthesis2 for: #SHTextStylerST80 to: {self magenta};
  set: #leftParenthesis3 for: #SHTextStylerST80 to: {self red};
  set: #rightParenthesis3 for: #SHTextStylerST80 to: {self red};
  set: #leftParenthesis4 for: #SHTextStylerST80 to: {self green};
  set: #rightParenthesis4 for: #SHTextStylerST80 to: {self green};
  set: #leftParenthesis5 for: #SHTextStylerST80 to: {self orange};
  set: #rightParenthesis5 for: #SHTextStylerST80 to: {self orange};
  set: #leftParenthesis6 for: #SHTextStylerST80 to: {self magenta};
  set: #rightParenthesis6 for: #SHTextStylerST80 to: {self magenta};
  set: #leftParenthesis7 for: #SHTextStylerST80 to: {self blue};
  set: #rightParenthesis7 for: #SHTextStylerST80 to: {self blue};
  set: #blockStart for: #SHTextStylerST80 to: {self foregroundColor};
  set: #blockEnd for: #SHTextStylerST80 to: {self foregroundColor};
  set: #blockStart1 for: #SHTextStylerST80 to: {self green};
  set: #blockEnd1 for: #SHTextStylerST80 to: {self green};
  set: #blockStart2 for: #SHTextStylerST80 to: {self magenta};
  set: #blockEnd2 for: #SHTextStylerST80 to: {self magenta};
  set: #blockStart3 for: #SHTextStylerST80 to: {self red};
  set: #blockEnd3 for: #SHTextStylerST80 to: {self red};
  set: #blockStart4 for: #SHTextStylerST80 to: {self green};
  set: #blockEnd4 for: #SHTextStylerST80 to: {self green};
  set: #blockStart5 for: #SHTextStylerST80 to: {self orange};
  set: #blockEnd5 for: #SHTextStylerST80 to: {self orange};
  set: #blockStart6 for: #SHTextStylerST80 to: {self magenta};
  set: #blockEnd6 for: #SHTextStylerST80 to: {self magenta};
  set: #blockStart7 for: #SHTextStylerST80 to: {self blue};
  set: #blockEnd7 for: #SHTextStylerST80 to: {self blue};
  set: #arrayStart for: #SHTextStylerST80 to: {self foregroundColor};
  set: #arrayEnd for: #SHTextStylerST80 to: {self foregroundColor};
  set: #arrayStart1 for: #SHTextStylerST80 to: {self foregroundColor};
  set: #arrayEnd1 for: #SHTextStylerST80 to: {self foregroundColor};
  set: #byteArrayStart for: #SHTextStylerST80 to: {self foregroundColor};
  set: #byteArrayEnd for: #SHTextStylerST80 to: {self foregroundColor};
  set: #byteArrayStart1 for: #SHTextStylerST80 to: {self foregroundColor};
  set: #byteArrayEnd1 for: #SHTextStylerST80 to: {self foregroundColor};
  set: #leftBrace for: #SHTextStylerST80 to: {self foregroundColor};
  set: #rightBrace for: #SHTextStylerST80 to: {self foregroundColor};
  set: #cascadeSeparator for: #SHTextStylerST80 to: {self foregroundColor};
  set: #statementSeparator for: #SHTextStylerST80 to: {self foregroundColor};
  set: #externalCallType for: #SHTextStylerST80 to: {self foregroundColor};
  set: #externalCallTypePointerIndicator for: #SHTextStylerST80 to: {self foregroundColor};
  set: #primitiveOrExternalCallStart for: #SHTextStylerST80 to: {self foregroundColor};
  set: #primitiveOrExternalCallEnd for: #SHTextStylerST80 to: {self foregroundColor};
  set: #methodTempBar for: #SHTextStylerST80 to: {self foregroundColor};
  set: #blockTempBar for: #SHTextStylerST80 to: {self foregroundColor};
  set: #blockArgsBar for: #SHTextStylerST80 to: {self foregroundColor};
  set: #primitive for: #SHTextStylerST80 to: {self green. TextEmphasis bold};
  set: #pragmaKeyword for: #SHTextStylerST80 to: {self green. TextEmphasis bold};
  set: #pragmaUnary for: #SHTextStylerST80 to: {self green. TextEmphasis bold};
  set: #pragmaBinary for: #SHTextStylerST80 to: {self green. TextEmphasis bold};
  set: #externalFunctionCallingConvention for: #SHTextStylerST80 to: {self green. TextEmphasis bold};
  set: #module for: #SHTextStylerST80 to: {self green. TextEmphasis bold};
  set: #blockTempVar for: #SHTextStylerST80 to: {self foregroundColor};
  set: #blockPatternTempVar for: #SHTextStylerST80 to: {self foregroundColor};
  set: #instVar for: #SHTextStylerST80 to: {self foregroundColor};
  set: #workspaceVar for: #SHTextStylerST80 to: {self foregroundColor};
  set: #undefinedIdentifier for: #SHTextStylerST80 to: {self red};
  set: #incompleteIdentifier for: #SHTextStylerST80 to: {self foregroundColor. {TextEmphasis italic. TextEmphasis underlined}};
  set: #tempVar for: #SHTextStylerST80 to: {self foregroundColor};
  set: #patternTempVar for: #SHTextStylerST80 to: {self foregroundColor};
  set: #poolConstant for: #SHTextStylerST80 to: {self foregroundColor};
  set: #classVar for: #SHTextStylerST80 to: {self foregroundColor};
  set: #globalVar for: #SHTextStylerST80 to: {self foregroundColor}.
 
  "And the text differ"
  theme
  set: #insertTextAttributes for: #TextDiffBuilder to: { TextColor color: self red };
  set: #removeTextAttributes for: #TextDiffBuilder to: { TextEmphasis struckOut. TextColor color: self blue };
  set: #normalTextAttributes for: #TextDiffBuilder to: { TextEmphasis normal }.!

Item was changed:
  ----- Method: SolarizedTheme class>>addDarkSyntaxHighlighting: (in category 'instance creation') -----
  addDarkSyntaxHighlighting: theme
  "self createDark apply."
+ theme
+ set: #color for: #TextAction to: self blue;
+
- theme
  set: #default for: #SHTextStylerST80 to: {self darkContentPrimary};
  set: #invalid for: #SHTextStylerST80 to: {self red};
  set: #excessCode for: #SHTextStylerST80 to: {self red};
  set: #comment for: #SHTextStylerST80 to: {self cyan};
  set: #unfinishedComment for: #SHTextStylerST80 to: {self red. TextEmphasis italic};
  set: #'$' for: #SHTextStylerST80 to: {self red};
  set: #character for: #SHTextStylerST80 to: {self red};
  set: #integer for: #SHTextStylerST80 to: {self red};
  set: #number for: #SHTextStylerST80 to: {self red};
  set: #- for: #SHTextStylerST80 to: {self red};
  set: #symbol for: #SHTextStylerST80 to: {self blue};
  set: #stringSymbol for: #SHTextStylerST80 to: {self blue};
  set: #literalArray for: #SHTextStylerST80 to: {self blue};
  set: #string for: #SHTextStylerST80 to: {self magenta. TextEmphasis normal};
  set: #unfinishedString for: #SHTextStylerST80 to: {self red. TextEmphasis normal};
  set: #assignment for: #SHTextStylerST80 to: {nil. TextEmphasis bold};
  set: #ansiAssignment for: #SHTextStylerST80 to: {nil. TextEmphasis bold};
  set: #literal for: #SHTextStylerST80 to: {nil. TextEmphasis italic};
  set: #keyword for: #SHTextStylerST80 to: {self blue};
  set: #binary for: #SHTextStylerST80 to: {self blue};
  set: #unary for: #SHTextStylerST80 to: {self blue};
  set: #incompleteKeyword for: #SHTextStylerST80 to: {self darkContentPrimary. TextEmphasis underlined};
  set: #incompleteBinary for: #SHTextStylerST80 to: {self darkContentPrimary. TextEmphasis underlined};
  set: #incompleteUnary for: #SHTextStylerST80 to: {self darkContentPrimary. TextEmphasis underlined};
  set: #undefinedKeyword for: #SHTextStylerST80 to: {self red};
  set: #undefinedBinary for: #SHTextStylerST80 to: {self red};
  set: #undefinedUnary for: #SHTextStylerST80 to: {self red};
  set: #patternKeyword for: #SHTextStylerST80 to: {nil. TextEmphasis bold};
  set: #patternBinary for: #SHTextStylerST80 to: {nil. TextEmphasis bold};
  set: #patternUnary for: #SHTextStylerST80 to: {nil. TextEmphasis bold};
  set: #self for: #SHTextStylerST80 to: {self red};
  set: #super for: #SHTextStylerST80 to: {self red};
  set: #true for: #SHTextStylerST80 to: {self red};
  set: #false for: #SHTextStylerST80 to: {self red};
  set: #nil for: #SHTextStylerST80 to: {self red};
  set: #thisContext for: #SHTextStylerST80 to: {self red};
  set: #return for: #SHTextStylerST80 to: {self red};
  set: #patternArg for: #SHTextStylerST80 to: {self blue};
  set: #methodArg for: #SHTextStylerST80 to: {self blue};
  set: #blockPatternArg for: #SHTextStylerST80 to: {self blue};
  set: #blockArg for: #SHTextStylerST80 to: {self blue};
  set: #argument for: #SHTextStylerST80 to: {self blue};
  set: #blockArgColon for: #SHTextStylerST80 to: {self darkContentPrimary};
  set: #leftParenthesis for: #SHTextStylerST80 to: {self darkContentPrimary};
  set: #rightParenthesis for: #SHTextStylerST80 to: {self darkContentPrimary};
  set: #leftParenthesis1 for: #SHTextStylerST80 to: {self green};
  set: #rightParenthesis1 for: #SHTextStylerST80 to: {self green};
  set: #leftParenthesis2 for: #SHTextStylerST80 to: {self magenta};
  set: #rightParenthesis2 for: #SHTextStylerST80 to: {self magenta};
  set: #leftParenthesis3 for: #SHTextStylerST80 to: {self red};
  set: #rightParenthesis3 for: #SHTextStylerST80 to: {self red};
  set: #leftParenthesis4 for: #SHTextStylerST80 to: {self green};
  set: #rightParenthesis4 for: #SHTextStylerST80 to: {self green};
  set: #leftParenthesis5 for: #SHTextStylerST80 to: {self orange};
  set: #rightParenthesis5 for: #SHTextStylerST80 to: {self orange};
  set: #leftParenthesis6 for: #SHTextStylerST80 to: {self magenta};
  set: #rightParenthesis6 for: #SHTextStylerST80 to: {self magenta};
  set: #leftParenthesis7 for: #SHTextStylerST80 to: {self blue};
  set: #rightParenthesis7 for: #SHTextStylerST80 to: {self blue};
  set: #blockStart for: #SHTextStylerST80 to: {self darkContentPrimary};
  set: #blockEnd for: #SHTextStylerST80 to: {self darkContentPrimary};
  set: #blockStart1 for: #SHTextStylerST80 to: {self green};
  set: #blockEnd1 for: #SHTextStylerST80 to: {self green};
  set: #blockStart2 for: #SHTextStylerST80 to: {self magenta};
  set: #blockEnd2 for: #SHTextStylerST80 to: {self magenta};
  set: #blockStart3 for: #SHTextStylerST80 to: {self red};
  set: #blockEnd3 for: #SHTextStylerST80 to: {self red};
  set: #blockStart4 for: #SHTextStylerST80 to: {self green};
  set: #blockEnd4 for: #SHTextStylerST80 to: {self green};
  set: #blockStart5 for: #SHTextStylerST80 to: {self orange};
  set: #blockEnd5 for: #SHTextStylerST80 to: {self orange};
  set: #blockStart6 for: #SHTextStylerST80 to: {self magenta};
  set: #blockEnd6 for: #SHTextStylerST80 to: {self magenta};
  set: #blockStart7 for: #SHTextStylerST80 to: {self blue};
  set: #blockEnd7 for: #SHTextStylerST80 to: {self blue};
  set: #arrayStart for: #SHTextStylerST80 to: {self darkContentPrimary};
  set: #arrayEnd for: #SHTextStylerST80 to: {self darkContentPrimary};
  set: #arrayStart1 for: #SHTextStylerST80 to: {self darkContentPrimary};
  set: #arrayEnd1 for: #SHTextStylerST80 to: {self darkContentPrimary};
  set: #byteArrayStart for: #SHTextStylerST80 to: {self darkContentPrimary};
  set: #byteArrayEnd for: #SHTextStylerST80 to: {self darkContentPrimary};
  set: #byteArrayStart1 for: #SHTextStylerST80 to: {self darkContentPrimary};
  set: #byteArrayEnd1 for: #SHTextStylerST80 to: {self darkContentPrimary};
  set: #leftBrace for: #SHTextStylerST80 to: {self darkContentPrimary};
  set: #rightBrace for: #SHTextStylerST80 to: {self darkContentPrimary};
  set: #cascadeSeparator for: #SHTextStylerST80 to: {self darkContentPrimary};
  set: #statementSeparator for: #SHTextStylerST80 to: {self darkContentPrimary};
  set: #externalCallType for: #SHTextStylerST80 to: {self darkContentPrimary};
  set: #externalCallTypePointerIndicator for: #SHTextStylerST80 to: {self darkContentPrimary};
  set: #primitiveOrExternalCallStart for: #SHTextStylerST80 to: {self darkContentPrimary};
  set: #primitiveOrExternalCallEnd for: #SHTextStylerST80 to: {self darkContentPrimary};
  set: #methodTempBar for: #SHTextStylerST80 to: {self darkContentPrimary};
  set: #blockTempBar for: #SHTextStylerST80 to: {self darkContentPrimary};
  set: #blockArgsBar for: #SHTextStylerST80 to: {self darkContentPrimary};
  set: #primitive for: #SHTextStylerST80 to: {self green. TextEmphasis bold};
  set: #pragmaKeyword for: #SHTextStylerST80 to: {self green. TextEmphasis bold};
  set: #pragmaUnary for: #SHTextStylerST80 to: {self green. TextEmphasis bold};
  set: #pragmaBinary for: #SHTextStylerST80 to: {self green. TextEmphasis bold};
  set: #externalFunctionCallingConvention for: #SHTextStylerST80 to: {self green. TextEmphasis bold};
  set: #module for: #SHTextStylerST80 to: {self green. TextEmphasis bold};
  set: #blockTempVar for: #SHTextStylerST80 to: {self darkContentPrimary};
  set: #blockPatternTempVar for: #SHTextStylerST80 to: {self darkContentPrimary};
  set: #instVar for: #SHTextStylerST80 to: {self darkContentPrimary};
  set: #workspaceVar for: #SHTextStylerST80 to: {self darkContentPrimary};
  set: #undefinedIdentifier for: #SHTextStylerST80 to: {self red};
  set: #incompleteIdentifier for: #SHTextStylerST80 to: {self darkContentPrimary. {TextEmphasis italic. TextEmphasis underlined}};
  set: #tempVar for: #SHTextStylerST80 to: {self darkContentPrimary};
  set: #patternTempVar for: #SHTextStylerST80 to: {self darkContentPrimary};
  set: #poolConstant for: #SHTextStylerST80 to: {self darkContentPrimary};
  set: #classVar for: #SHTextStylerST80 to: {self darkContentPrimary};
  set: #globalVar for: #SHTextStylerST80 to: {self darkContentPrimary}.
 
  "And the text differ"
  theme
  set: #insertTextAttributes for: #TextDiffBuilder to: { TextColor color: self red };
  set: #removeTextAttributes for: #TextDiffBuilder to: { TextEmphasis struckOut. TextColor color: self blue };
  set: #normalTextAttributes for: #TextDiffBuilder to: { TextEmphasis normal }.!

Item was changed:
  ----- Method: SolarizedTheme class>>addLightSyntaxHighlighting: (in category 'instance creation') -----
  addLightSyntaxHighlighting: theme
  "self createLight apply."
+ theme
+ set: #color for: #TextAction to: self blue;
+
- theme
  set: #default for: #SHTextStylerST80 to: {self lightContentPrimary};
  set: #invalid for: #SHTextStylerST80 to: {self red};
  set: #excessCode for: #SHTextStylerST80 to: {self red};
  set: #comment for: #SHTextStylerST80 to: {self cyan};
  set: #unfinishedComment for: #SHTextStylerST80 to: {self red. TextEmphasis italic};
  set: #'$' for: #SHTextStylerST80 to: {self red};
  set: #character for: #SHTextStylerST80 to: {self red};
  set: #integer for: #SHTextStylerST80 to: {self red};
  set: #number for: #SHTextStylerST80 to: {self red};
  set: #- for: #SHTextStylerST80 to: {self red};
  set: #symbol for: #SHTextStylerST80 to: {self blue};
  set: #stringSymbol for: #SHTextStylerST80 to: {self blue};
  set: #literalArray for: #SHTextStylerST80 to: {self blue};
  set: #string for: #SHTextStylerST80 to: {self magenta. TextEmphasis normal};
  set: #unfinishedString for: #SHTextStylerST80 to: {self red. TextEmphasis normal};
  set: #assignment for: #SHTextStylerST80 to: {nil. TextEmphasis bold};
  set: #ansiAssignment for: #SHTextStylerST80 to: {nil. TextEmphasis bold};
  set: #literal for: #SHTextStylerST80 to: {nil. TextEmphasis italic};
  set: #keyword for: #SHTextStylerST80 to: {self blue};
  set: #binary for: #SHTextStylerST80 to: {self blue};
  set: #unary for: #SHTextStylerST80 to: {self blue};
  set: #incompleteKeyword for: #SHTextStylerST80 to: {self lightContentPrimary. TextEmphasis underlined};
  set: #incompleteBinary for: #SHTextStylerST80 to: {self lightContentPrimary. TextEmphasis underlined};
  set: #incompleteUnary for: #SHTextStylerST80 to: {self lightContentPrimary. TextEmphasis underlined};
  set: #undefinedKeyword for: #SHTextStylerST80 to: {self red};
  set: #undefinedBinary for: #SHTextStylerST80 to: {self red};
  set: #undefinedUnary for: #SHTextStylerST80 to: {self red};
  set: #patternKeyword for: #SHTextStylerST80 to: {nil. TextEmphasis bold};
  set: #patternBinary for: #SHTextStylerST80 to: {nil. TextEmphasis bold};
  set: #patternUnary for: #SHTextStylerST80 to: {nil. TextEmphasis bold};
  set: #self for: #SHTextStylerST80 to: {self red};
  set: #super for: #SHTextStylerST80 to: {self red};
  set: #true for: #SHTextStylerST80 to: {self red};
  set: #false for: #SHTextStylerST80 to: {self red};
  set: #nil for: #SHTextStylerST80 to: {self red};
  set: #thisContext for: #SHTextStylerST80 to: {self red};
  set: #return for: #SHTextStylerST80 to: {self red};
  set: #patternArg for: #SHTextStylerST80 to: {self blue};
  set: #methodArg for: #SHTextStylerST80 to: {self blue};
  set: #blockPatternArg for: #SHTextStylerST80 to: {self blue};
  set: #blockArg for: #SHTextStylerST80 to: {self blue};
  set: #argument for: #SHTextStylerST80 to: {self blue};
  set: #blockArgColon for: #SHTextStylerST80 to: {self lightContentPrimary};
  set: #leftParenthesis for: #SHTextStylerST80 to: {self lightContentPrimary};
  set: #rightParenthesis for: #SHTextStylerST80 to: {self lightContentPrimary};
  set: #leftParenthesis1 for: #SHTextStylerST80 to: {self green};
  set: #rightParenthesis1 for: #SHTextStylerST80 to: {self green};
  set: #leftParenthesis2 for: #SHTextStylerST80 to: {self magenta};
  set: #rightParenthesis2 for: #SHTextStylerST80 to: {self magenta};
  set: #leftParenthesis3 for: #SHTextStylerST80 to: {self red};
  set: #rightParenthesis3 for: #SHTextStylerST80 to: {self red};
  set: #leftParenthesis4 for: #SHTextStylerST80 to: {self green};
  set: #rightParenthesis4 for: #SHTextStylerST80 to: {self green};
  set: #leftParenthesis5 for: #SHTextStylerST80 to: {self orange};
  set: #rightParenthesis5 for: #SHTextStylerST80 to: {self orange};
  set: #leftParenthesis6 for: #SHTextStylerST80 to: {self magenta};
  set: #rightParenthesis6 for: #SHTextStylerST80 to: {self magenta};
  set: #leftParenthesis7 for: #SHTextStylerST80 to: {self blue};
  set: #rightParenthesis7 for: #SHTextStylerST80 to: {self blue};
  set: #blockStart for: #SHTextStylerST80 to: {self lightContentPrimary};
  set: #blockEnd for: #SHTextStylerST80 to: {self lightContentPrimary};
  set: #blockStart1 for: #SHTextStylerST80 to: {self green};
  set: #blockEnd1 for: #SHTextStylerST80 to: {self green};
  set: #blockStart2 for: #SHTextStylerST80 to: {self magenta};
  set: #blockEnd2 for: #SHTextStylerST80 to: {self magenta};
  set: #blockStart3 for: #SHTextStylerST80 to: {self red};
  set: #blockEnd3 for: #SHTextStylerST80 to: {self red};
  set: #blockStart4 for: #SHTextStylerST80 to: {self green};
  set: #blockEnd4 for: #SHTextStylerST80 to: {self green};
  set: #blockStart5 for: #SHTextStylerST80 to: {self orange};
  set: #blockEnd5 for: #SHTextStylerST80 to: {self orange};
  set: #blockStart6 for: #SHTextStylerST80 to: {self magenta};
  set: #blockEnd6 for: #SHTextStylerST80 to: {self magenta};
  set: #blockStart7 for: #SHTextStylerST80 to: {self blue};
  set: #blockEnd7 for: #SHTextStylerST80 to: {self blue};
  set: #arrayStart for: #SHTextStylerST80 to: {self lightContentPrimary};
  set: #arrayEnd for: #SHTextStylerST80 to: {self lightContentPrimary};
  set: #arrayStart1 for: #SHTextStylerST80 to: {self lightContentPrimary};
  set: #arrayEnd1 for: #SHTextStylerST80 to: {self lightContentPrimary};
  set: #byteArrayStart for: #SHTextStylerST80 to: {self lightContentPrimary};
  set: #byteArrayEnd for: #SHTextStylerST80 to: {self lightContentPrimary};
  set: #byteArrayStart1 for: #SHTextStylerST80 to: {self lightContentPrimary};
  set: #byteArrayEnd1 for: #SHTextStylerST80 to: {self lightContentPrimary};
  set: #leftBrace for: #SHTextStylerST80 to: {self lightContentPrimary};
  set: #rightBrace for: #SHTextStylerST80 to: {self lightContentPrimary};
  set: #cascadeSeparator for: #SHTextStylerST80 to: {self lightContentPrimary};
  set: #statementSeparator for: #SHTextStylerST80 to: {self lightContentPrimary};
  set: #externalCallType for: #SHTextStylerST80 to: {self lightContentPrimary};
  set: #externalCallTypePointerIndicator for: #SHTextStylerST80 to: {self lightContentPrimary};
  set: #primitiveOrExternalCallStart for: #SHTextStylerST80 to: {self lightContentPrimary};
  set: #primitiveOrExternalCallEnd for: #SHTextStylerST80 to: {self lightContentPrimary};
  set: #methodTempBar for: #SHTextStylerST80 to: {self lightContentPrimary};
  set: #blockTempBar for: #SHTextStylerST80 to: {self lightContentPrimary};
  set: #blockArgsBar for: #SHTextStylerST80 to: {self lightContentPrimary};
  set: #primitive for: #SHTextStylerST80 to: {self green. TextEmphasis bold};
  set: #pragmaKeyword for: #SHTextStylerST80 to: {self green. TextEmphasis bold};
  set: #pragmaUnary for: #SHTextStylerST80 to: {self green. TextEmphasis bold};
  set: #pragmaBinary for: #SHTextStylerST80 to: {self green. TextEmphasis bold};
  set: #externalFunctionCallingConvention for: #SHTextStylerST80 to: {self green. TextEmphasis bold};
  set: #module for: #SHTextStylerST80 to: {self green. TextEmphasis bold};
  set: #blockTempVar for: #SHTextStylerST80 to: {self lightContentPrimary};
  set: #blockPatternTempVar for: #SHTextStylerST80 to: {self lightContentPrimary};
  set: #instVar for: #SHTextStylerST80 to: {self lightContentPrimary};
  set: #workspaceVar for: #SHTextStylerST80 to: {self lightContentPrimary};
  set: #undefinedIdentifier for: #SHTextStylerST80 to: {self red};
  set: #incompleteIdentifier for: #SHTextStylerST80 to: {self lightContentPrimary. {TextEmphasis italic. TextEmphasis underlined}};
  set: #tempVar for: #SHTextStylerST80 to: {self lightContentPrimary};
  set: #patternTempVar for: #SHTextStylerST80 to: {self lightContentPrimary};
  set: #poolConstant for: #SHTextStylerST80 to: {self lightContentPrimary};
  set: #classVar for: #SHTextStylerST80 to: {self lightContentPrimary};
  set: #globalVar for: #SHTextStylerST80 to: {self lightContentPrimary}.
 
  "And the text differ"
  theme
  set: #insertTextAttributes for: #TextDiffBuilder to: { TextColor color: self red };
  set: #removeTextAttributes for: #TextDiffBuilder to: { TextEmphasis struckOut. TextColor color: self blue };
  set: #normalTextAttributes for: #TextDiffBuilder to: { TextEmphasis normal }.!

Item was changed:
  ----- Method: SqueakTheme class>>addSyntaxHighlighting: (in category 'instance creation') -----
  addSyntaxHighlighting: theme
  "This was the former sub-dued highlighting."
 
+ theme
+ set: #color for: #TextAction to: (Color r: 0.4 g: 0.0 b: 1);
+
- theme
  set: #default for: #SHTextStylerST80 to: {Color black};
  set: #invalid for: #SHTextStylerST80 to: {Color red};
  set: #excessCode for: #SHTextStylerST80 to: {Color red};
  set: #comment for: #SHTextStylerST80 to: {Color cyan muchDarker};
  set: #unfinishedComment for: #SHTextStylerST80 to: {Color red muchDarker. TextEmphasis italic};
  set: #'$' for: #SHTextStylerST80 to: {Color red muchDarker};
  set: #character for: #SHTextStylerST80 to: {Color red muchDarker};
  set: #integer for: #SHTextStylerST80 to: {Color red muchDarker};
  set: #number for: #SHTextStylerST80 to: {Color red muchDarker};
  set: #- for: #SHTextStylerST80 to: {Color red muchDarker};
  set: #symbol for: #SHTextStylerST80 to: {Color blue muchDarker};
  set: #stringSymbol for: #SHTextStylerST80 to: {Color blue muchDarker};
  set: #literalArray for: #SHTextStylerST80 to: {Color blue muchDarker};
  set: #string for: #SHTextStylerST80 to: {Color magenta muchDarker. TextEmphasis normal};
  set: #unfinishedString for: #SHTextStylerST80 to: {Color red. TextEmphasis normal};
  set: #assignment for: #SHTextStylerST80 to: {nil. TextEmphasis bold};
  set: #ansiAssignment for: #SHTextStylerST80 to: {nil. TextEmphasis bold};
  set: #literal for: #SHTextStylerST80 to: {nil. TextEmphasis italic};
  set: #keyword for: #SHTextStylerST80 to: {Color blue muchDarker};
  set: #binary for: #SHTextStylerST80 to: {Color blue muchDarker};
  set: #unary for: #SHTextStylerST80 to: {Color blue muchDarker};
  set: #incompleteKeyword for: #SHTextStylerST80 to: {Color gray muchDarker. TextEmphasis underlined};
  set: #incompleteBinary for: #SHTextStylerST80 to: {Color gray muchDarker. TextEmphasis underlined};
  set: #incompleteUnary for: #SHTextStylerST80 to: {Color gray muchDarker. TextEmphasis underlined};
  set: #undefinedKeyword for: #SHTextStylerST80 to: {Color red};
  set: #undefinedBinary for: #SHTextStylerST80 to: {Color red};
  set: #undefinedUnary for: #SHTextStylerST80 to: {Color red};
  set: #patternKeyword for: #SHTextStylerST80 to: {nil. TextEmphasis bold};
  set: #patternBinary for: #SHTextStylerST80 to: {nil. TextEmphasis bold};
  set: #patternUnary for: #SHTextStylerST80 to: {nil. TextEmphasis bold};
  set: #self for: #SHTextStylerST80 to: {Color red muchDarker};
  set: #super for: #SHTextStylerST80 to: {Color red muchDarker};
  set: #true for: #SHTextStylerST80 to: {Color red muchDarker};
  set: #false for: #SHTextStylerST80 to: {Color red muchDarker};
  set: #nil for: #SHTextStylerST80 to: {Color red muchDarker};
  set: #thisContext for: #SHTextStylerST80 to: {Color red muchDarker};
  set: #return for: #SHTextStylerST80 to: {Color red muchDarker};
  set: #patternArg for: #SHTextStylerST80 to: {Color blue muchDarker};
  set: #methodArg for: #SHTextStylerST80 to: {Color blue muchDarker};
  set: #blockPatternArg for: #SHTextStylerST80 to: {Color blue muchDarker};
  set: #blockArg for: #SHTextStylerST80 to: {Color blue muchDarker};
  set: #argument for: #SHTextStylerST80 to: {Color blue muchDarker};
  set: #blockArgColon for: #SHTextStylerST80 to: {Color black};
  set: #leftParenthesis for: #SHTextStylerST80 to: {Color black};
  set: #rightParenthesis for: #SHTextStylerST80 to: {Color black};
  set: #leftParenthesis1 for: #SHTextStylerST80 to: {Color green muchDarker};
  set: #rightParenthesis1 for: #SHTextStylerST80 to: {Color green muchDarker};
  set: #leftParenthesis2 for: #SHTextStylerST80 to: {Color magenta muchDarker};
  set: #rightParenthesis2 for: #SHTextStylerST80 to: {Color magenta muchDarker};
  set: #leftParenthesis3 for: #SHTextStylerST80 to: {Color red muchDarker};
  set: #rightParenthesis3 for: #SHTextStylerST80 to: {Color red muchDarker};
  set: #leftParenthesis4 for: #SHTextStylerST80 to: {Color green darker};
  set: #rightParenthesis4 for: #SHTextStylerST80 to: {Color green darker};
  set: #leftParenthesis5 for: #SHTextStylerST80 to: {Color orange darker};
  set: #rightParenthesis5 for: #SHTextStylerST80 to: {Color orange darker};
  set: #leftParenthesis6 for: #SHTextStylerST80 to: {Color magenta darker};
  set: #rightParenthesis6 for: #SHTextStylerST80 to: {Color magenta darker};
  set: #leftParenthesis7 for: #SHTextStylerST80 to: {Color blue};
  set: #rightParenthesis7 for: #SHTextStylerST80 to: {Color blue};
  set: #blockStart for: #SHTextStylerST80 to: {Color black};
  set: #blockEnd for: #SHTextStylerST80 to: {Color black};
  set: #blockStart1 for: #SHTextStylerST80 to: {Color green muchDarker};
  set: #blockEnd1 for: #SHTextStylerST80 to: {Color green muchDarker};
  set: #blockStart2 for: #SHTextStylerST80 to: {Color magenta muchDarker};
  set: #blockEnd2 for: #SHTextStylerST80 to: {Color magenta muchDarker};
  set: #blockStart3 for: #SHTextStylerST80 to: {Color red muchDarker};
  set: #blockEnd3 for: #SHTextStylerST80 to: {Color red muchDarker};
  set: #blockStart4 for: #SHTextStylerST80 to: {Color green darker};
  set: #blockEnd4 for: #SHTextStylerST80 to: {Color green darker};
  set: #blockStart5 for: #SHTextStylerST80 to: {Color orange darker};
  set: #blockEnd5 for: #SHTextStylerST80 to: {Color orange darker};
  set: #blockStart6 for: #SHTextStylerST80 to: {Color magenta darker};
  set: #blockEnd6 for: #SHTextStylerST80 to: {Color magenta darker};
  set: #blockStart7 for: #SHTextStylerST80 to: {Color blue};
  set: #blockEnd7 for: #SHTextStylerST80 to: {Color blue};
  set: #arrayStart for: #SHTextStylerST80 to: {Color black};
  set: #arrayEnd for: #SHTextStylerST80 to: {Color black};
  set: #arrayStart1 for: #SHTextStylerST80 to: {Color black};
  set: #arrayEnd1 for: #SHTextStylerST80 to: {Color black};
  set: #byteArrayStart for: #SHTextStylerST80 to: {Color black};
  set: #byteArrayEnd for: #SHTextStylerST80 to: {Color black};
  set: #byteArrayStart1 for: #SHTextStylerST80 to: {Color black};
  set: #byteArrayEnd1 for: #SHTextStylerST80 to: {Color black};
  set: #leftBrace for: #SHTextStylerST80 to: {Color black};
  set: #rightBrace for: #SHTextStylerST80 to: {Color black};
  set: #cascadeSeparator for: #SHTextStylerST80 to: {Color black};
  set: #statementSeparator for: #SHTextStylerST80 to: {Color black};
  set: #externalCallType for: #SHTextStylerST80 to: {Color black};
  set: #externalCallTypePointerIndicator for: #SHTextStylerST80 to: {Color black};
  set: #primitiveOrExternalCallStart for: #SHTextStylerST80 to: {Color black};
  set: #primitiveOrExternalCallEnd for: #SHTextStylerST80 to: {Color black};
  set: #methodTempBar for: #SHTextStylerST80 to: {Color gray};
  set: #blockTempBar for: #SHTextStylerST80 to: {Color gray};
  set: #blockArgsBar for: #SHTextStylerST80 to: {Color gray};
  set: #primitive for: #SHTextStylerST80 to: {Color green muchDarker. TextEmphasis bold};
  set: #pragmaKeyword for: #SHTextStylerST80 to: {Color green muchDarker. TextEmphasis bold};
  set: #pragmaUnary for: #SHTextStylerST80 to: {Color green muchDarker. TextEmphasis bold};
  set: #pragmaBinary for: #SHTextStylerST80 to: {Color green muchDarker. TextEmphasis bold};
  set: #externalFunctionCallingConvention for: #SHTextStylerST80 to: {Color green muchDarker. TextEmphasis bold};
  set: #module for: #SHTextStylerST80 to: {Color green muchDarker. TextEmphasis bold};
  set: #blockTempVar for: #SHTextStylerST80 to: {Color gray};
  set: #blockPatternTempVar for: #SHTextStylerST80 to: {Color gray};
  set: #instVar for: #SHTextStylerST80 to: {Color black};
  set: #workspaceVar for: #SHTextStylerST80 to: {Color black};
  set: #undefinedIdentifier for: #SHTextStylerST80 to: {Color red};
  set: #incompleteIdentifier for: #SHTextStylerST80 to: {Color gray darker. {TextEmphasis italic. TextEmphasis underlined}};
  set: #tempVar for: #SHTextStylerST80 to: {Color gray darker};
  set: #patternTempVar for: #SHTextStylerST80 to: {Color gray darker};
  set: #poolConstant for: #SHTextStylerST80 to: {Color gray muchDarker};
  set: #classVar for: #SHTextStylerST80 to: {Color gray muchDarker};
  set: #globalVar for: #SHTextStylerST80 to: {Color black}.
 
  "And the text differ"
  theme
  set: #insertTextAttributes for: #TextDiffBuilder to: { TextColor red };
  set: #removeTextAttributes for: #TextDiffBuilder to: { TextEmphasis struckOut. TextColor blue };
  set: #normalTextAttributes for: #TextDiffBuilder to: { TextEmphasis normal }.!