--- a/UserPreferences.st Fri Feb 26 13:09:10 2016 +0100
+++ b/UserPreferences.st Fri Feb 26 13:09:42 2016 +0100
@@ -3069,7 +3069,7 @@
"the color used for argument identifiers;
If syntaxColoring is turned on."
- ^ self at:#argumentIdentifierColor ifAbsentPut:[self identifierColor]
+ ^ self at:#argumentIdentifierColor ifAbsent:[self identifierColor]
"Created: / 31.3.1998 / 15:08:20 / cg"
"Modified: / 1.4.1998 / 13:19:58 / cg"
@@ -3079,7 +3079,7 @@
"the emphasis used for argument identifiers;
If syntaxColoring is turned on."
- ^ self at:#argumentIdentifierEmphasis ifAbsentPut:[self identifierEmphasis]
+ ^ self at:#argumentIdentifierEmphasis ifAbsent:[self identifierEmphasis]
"Created: / 31.3.1998 / 15:16:40 / cg"
"Modified: / 1.4.1998 / 13:19:55 / cg"
@@ -3089,15 +3089,14 @@
"the color used for illegal identifiers;
If syntaxColoring is turned on."
- ^ self at:#badIdentifierColor ifAbsentPut:[self identifierColor]
-
+ ^ self at:#badIdentifierColor ifAbsent:[self identifierColor]
!
badIdentifierEmphasis
"the emphasis used for illegal identifiers;
If syntaxColoring is turned on."
- ^ self at:#badIdentifierEmphasis ifAbsentPut:[UserPreferences default at:#badIdentifierEmphasis ifAbsent:#normal]
+ ^ self at:#badIdentifierEmphasis ifAbsent:[UserPreferences default at:#badIdentifierEmphasis ifAbsent:#normal]
"Modified: / 21-04-2011 / 12:34:50 / cg"
!
@@ -3126,7 +3125,7 @@
"the color used for brackets;
If syntaxColoring is turned on."
- ^ self at:#bracketColor ifAbsentPut:[self defaultSyntaxColor]
+ ^ self at:#bracketColor ifAbsent:[self defaultSyntaxColor]
"
self current at:#bracketColor put:Color red.
@@ -3144,7 +3143,7 @@
"the emphasis used for brackets;
If syntaxColoring is turned on."
- ^ self at:#bracketEmphasis ifAbsentPut:[self defaultSyntaxEmphasis]
+ ^ self at:#bracketEmphasis ifAbsent:[self defaultSyntaxEmphasis]
"
self current at:#bracketEmphasis put:#bold
@@ -3159,7 +3158,7 @@
"the color used for classVar/classInstVar identifiers
If syntaxColoring is turned on."
- ^ self at:#classVariableIdentifierColor ifAbsentPut:[self globalIdentifierColor]
+ ^ self at:#classVariableIdentifierColor ifAbsent:[self globalIdentifierColor]
"Modified: / 1.4.1998 / 13:20:47 / cg"
"Created: / 4.3.1999 / 12:50:31 / cg"
@@ -3169,7 +3168,7 @@
"the color used for classVar/classInstVar identifiers
If syntaxColoring is turned on."
- ^ self at:#classVariableIdentifierEmphasis ifAbsentPut:[self globalIdentifierEmphasis]
+ ^ self at:#classVariableIdentifierEmphasis ifAbsent:[self globalIdentifierEmphasis]
"Modified: / 1.4.1998 / 13:20:47 / cg"
"Created: / 4.3.1999 / 12:50:31 / cg"
@@ -3201,7 +3200,7 @@
"the color used for comments;
If syntaxColoring is turned on."
- ^ self at:#commentColor ifAbsentPut:[UserPreferences default at:#commentColor ifAbsent:[Color black]]
+ ^ self at:#commentColor ifAbsent:[UserPreferences default at:#commentColor ifAbsent:[Color black]]
"Created: / 31-03-1998 / 15:10:23 / cg"
"Modified: / 21-04-2011 / 12:33:39 / cg"
@@ -3211,7 +3210,7 @@
"the emphasis used for comments;
If syntaxColoring is turned on."
- ^ self at:#commentEmphasis ifAbsentPut:[UserPreferences default at:#commentEmphasis ifAbsent:#normal]
+ ^ self at:#commentEmphasis ifAbsent:[UserPreferences default at:#commentEmphasis ifAbsent:#normal]
"Created: / 31-03-1998 / 15:09:59 / cg"
"Modified: / 21-04-2011 / 12:34:48 / cg"
@@ -3246,7 +3245,7 @@
"the color used for constants;
If syntaxColoring is turned on."
- ^ self at:#constantColor ifAbsentPut:[UserPreferences default at:#constantColor ifAbsent:[Color black]]
+ ^ self at:#constantColor ifAbsent:[UserPreferences default at:#constantColor ifAbsent:[Color black]]
"Created: / 31-03-1998 / 18:13:15 / cg"
"Modified: / 21-04-2011 / 12:33:36 / cg"
@@ -3256,7 +3255,7 @@
"the emphasis used for constants;
If syntaxColoring is turned on."
- ^ self at:#constantEmphasis ifAbsentPut:[self identifierEmphasis]
+ ^ self at:#constantEmphasis ifAbsent:[self identifierEmphasis]
"Created: / 31.3.1998 / 18:13:23 / cg"
"Modified: / 1.4.1998 / 13:25:43 / cg"
@@ -3302,7 +3301,7 @@
"the color used for anything else;
If syntaxColoring is turned on."
- ^ self at:#defaultSyntaxColor ifAbsentPut:[UserPreferences default at:#defaultSyntaxColor ifAbsent:[Color black]]
+ ^ self at:#defaultSyntaxColor ifAbsent:[UserPreferences default at:#defaultSyntaxColor ifAbsent:[Color black]]
"Modified: / 21-04-2011 / 12:31:48 / cg"
!
@@ -3312,8 +3311,8 @@
If syntaxColoring is turned on."
^ self
- at:#defaultSyntaxEmphasis
- ifAbsentPut:[UserPreferences default at:#defaultSyntaxEmphasis ifAbsent:#normal]
+ at:#defaultSyntaxEmphasis
+ ifAbsent:[UserPreferences default at:#defaultSyntaxEmphasis ifAbsent:#normal]
"Modified: / 21-04-2011 / 12:34:46 / cg"
!
@@ -3384,7 +3383,7 @@
"the color used for illegal identifiers;
If syntaxColoring is turned on."
- ^ self at:#errorColor ifAbsentPut:[UserPreferences default at:#errorColor ifAbsent:[Color black]]
+ ^ self at:#errorColor ifAbsent:[UserPreferences default at:#errorColor ifAbsent:[Color black]]
"Modified: / 21-04-2011 / 12:33:33 / cg"
!
@@ -3411,7 +3410,7 @@
"with fullSelector check, selectors are searched immediately for
being implemented in the system. This may not be useful on slow machines"
- ^ self at:#fullSelectorCheck ifAbsentPut:[UserPreferences default at:#fullSelectorCheck]
+ ^ self at:#fullSelectorCheck ifAbsent:[UserPreferences default at:#fullSelectorCheck]
"Created: / 31.3.1998 / 15:09:41 / cg"
"Modified: / 1.4.1998 / 13:25:06 / cg"
@@ -3421,7 +3420,7 @@
"the color used for global identifiers which are known to be classes;
If syntaxColoring is turned on."
- ^ self at:#globalClassIdentifierColor ifAbsentPut:[self globalIdentifierColor]
+ ^ self at:#globalClassIdentifierColor ifAbsent:[self globalIdentifierColor]
"Modified: / 1.4.1998 / 13:20:47 / cg"
"Created: / 4.3.1999 / 12:50:31 / cg"
@@ -3431,7 +3430,7 @@
"the emphasis used for global variable identifiers which are known to be classes;
If syntaxColoring is turned on."
- ^ self at:#globalClassIdentifierEmphasis ifAbsentPut:[self globalIdentifierEmphasis]
+ ^ self at:#globalClassIdentifierEmphasis ifAbsent:[self globalIdentifierEmphasis]
"Modified: / 1.4.1998 / 13:25:31 / cg"
"Created: / 4.3.1999 / 12:51:00 / cg"
@@ -3441,7 +3440,7 @@
"the color used for global identifiers;
If syntaxColoring is turned on."
- ^ self at:#globalIdentifierColor ifAbsentPut:[self identifierColor]
+ ^ self at:#globalIdentifierColor ifAbsent:[self identifierColor]
"Created: / 31.3.1998 / 15:18:49 / cg"
"Modified: / 1.4.1998 / 13:20:47 / cg"
@@ -3451,7 +3450,7 @@
"the emphasis used for global variable identifiers;
If syntaxColoring is turned on."
- ^ self at:#globalIdentifierEmphasis ifAbsentPut:[self identifierEmphasis]
+ ^ self at:#globalIdentifierEmphasis ifAbsent:[self identifierEmphasis]
"Created: / 31.3.1998 / 15:18:29 / cg"
"Modified: / 1.4.1998 / 13:25:31 / cg"
@@ -3461,7 +3460,7 @@
"the color used for the here pseudoVariable;
If syntaxColoring is turned on."
- ^ self at:#hereColor ifAbsentPut:[self selfColor]
+ ^ self at:#hereColor ifAbsent:[self selfColor]
"Created: / 31.3.1998 / 17:38:09 / cg"
"Modified: / 1.4.1998 / 13:20:57 / cg"
@@ -3471,7 +3470,7 @@
"the emphasis used for the hre special variable;
If syntaxColoring is turned on."
- ^ self at:#hereEmphasis ifAbsentPut:[self selfEmphasis]
+ ^ self at:#hereEmphasis ifAbsent:[self selfEmphasis]
"Created: / 31.3.1998 / 17:35:13 / cg"
"Modified: / 1.4.1998 / 13:25:17 / cg"
@@ -3481,7 +3480,7 @@
"the color used for other identifiers;
If syntaxColoring is turned on."
- ^ self at:#identifierColor ifAbsentPut:[self defaultSyntaxColor]
+ ^ self at:#identifierColor ifAbsent:[self defaultSyntaxColor]
"
UserPreferences current at:#identifierColor put:Color green darkened darkened.
@@ -3496,7 +3495,7 @@
"the emphasis used for other identifiers;
If syntaxColoring is turned on."
- ^ self at:#identifierEmphasis ifAbsentPut:[self defaultSyntaxEmphasis]
+ ^ self at:#identifierEmphasis ifAbsent:[self defaultSyntaxEmphasis]
"Created: / 31.3.1998 / 15:09:41 / cg"
"Modified: / 1.4.1998 / 13:25:06 / cg"
@@ -3506,7 +3505,7 @@
"the color used for instance variable identifiers;
If syntaxColoring is turned on."
- ^ self at:#instVarIdentifierColor ifAbsentPut:[self identifierColor]
+ ^ self at:#instVarIdentifierColor ifAbsent:[self identifierColor]
"
UserPreferences current at:#instVarIdentifierColor put:Color green darkened.
@@ -3522,18 +3521,18 @@
"the emphais used for instance variable identifiers;
If syntaxColoring is turned on."
- ^ self at:#instVarIdentifierEmphasis ifAbsentPut:[self identifierEmphasis]
+ ^ self at:#instVarIdentifierEmphasis ifAbsent:[self identifierEmphasis]
"Modified: / 1.4.1998 / 13:24:42 / cg"
"Created: / 16.4.1998 / 18:40:05 / cg"
!
jsKeywordColor
- ^ self at:#jsKeywordColor ifAbsentPut:[self defaultSyntaxColor]
+ ^ self at:#jsKeywordColor ifAbsent:[self defaultSyntaxColor]
!
jsKeywordEmphasis
- ^ self at:#jsKeywordEmphasis ifAbsentPut:[self defaultSyntaxEmphasis]
+ ^ self at:#jsKeywordEmphasis ifAbsent:[self defaultSyntaxEmphasis]
!
localIdentifierColor
@@ -3565,7 +3564,7 @@
"the color used for a methods selector pattern;
If syntaxColoring is turned on."
- ^ self at:#methodSelectorColor ifAbsentPut:[self defaultSyntaxColor]
+ ^ self at:#methodSelectorColor ifAbsent:[self defaultSyntaxColor]
"Created: / 31.3.1998 / 15:11:24 / cg"
"Modified: / 1.4.1998 / 13:24:26 / cg"
@@ -3575,7 +3574,7 @@
"the emphasis used for a methods selector pattern;
If syntaxColoring is turned on."
- ^ self at:#methodSelectorEmphasis ifAbsentPut:[UserPreferences default at:#methodSelectorEmphasis ifAbsent:#normal]
+ ^ self at:#methodSelectorEmphasis ifAbsent:[UserPreferences default at:#methodSelectorEmphasis ifAbsent:#normal]
"Created: / 31-03-1998 / 15:11:16 / cg"
"Modified: / 21-04-2011 / 12:34:42 / cg"
@@ -3599,21 +3598,21 @@
"the color used for pool variable identifiers
If syntaxColoring is turned on."
- ^ self at:#poolVariableIdentifierColor ifAbsentPut:[self globalIdentifierColor]
+ ^ self at:#poolVariableIdentifierColor ifAbsent:[self globalIdentifierColor]
!
poolVariableIdentifierEmphasis
"the color used for pool variable identifiers
If syntaxColoring is turned on."
- ^ self at:#poolVariableIdentifierEmphasis ifAbsentPut:[self globalIdentifierEmphasis]
+ ^ self at:#poolVariableIdentifierEmphasis ifAbsent:[self globalIdentifierEmphasis]
!
returnColor
"the color used for the return expression;
If syntaxColoring is turned on."
- ^ self at:#returnColor ifAbsentPut:[self defaultSyntaxColor]
+ ^ self at:#returnColor ifAbsent:[self defaultSyntaxColor]
"Modified: / 5.1.1980 / 00:43:52 / cg"
!
@@ -3622,7 +3621,7 @@
"the emphasis used for returns;
If syntaxColoring is turned on."
- ^ self at:#returnEmphasis ifAbsentPut:[self defaultSyntaxEmphasis]
+ ^ self at:#returnEmphasis ifAbsent:[#bold "self defaultSyntaxEmphasis"]
"Created: / 5.1.1980 / 00:43:39 / cg"
!
@@ -3631,7 +3630,7 @@
"the color used for message selectors;
If syntaxColoring is turned on."
- ^ self at:#selectorColor ifAbsentPut:[self defaultSyntaxColor]
+ ^ self at:#selectorColor ifAbsent:[self defaultSyntaxColor]
"Created: / 31.3.1998 / 15:19:19 / cg"
"Modified: / 1.4.1998 / 13:24:04 / cg"
@@ -3641,7 +3640,7 @@
"the emphasis used for message selectors;
If syntaxColoring is turned on."
- ^ self at:#selectorEmphasis ifAbsentPut:[UserPreferences default at:#selectorEmphasis ifAbsent:#normal]
+ ^ self at:#selectorEmphasis ifAbsent:[UserPreferences default at:#selectorEmphasis ifAbsent:#normal]
"Created: / 31-03-1998 / 15:19:09 / cg"
"Modified: / 21-04-2011 / 12:34:39 / cg"
@@ -3651,7 +3650,7 @@
"the color used for the self pseudoVariable;
If syntaxColoring is turned on."
- ^ self at:#selfColor ifAbsentPut:[self identifierColor]
+ ^ self at:#selfColor ifAbsent:[self identifierColor]
"Created: / 31.3.1998 / 17:35:45 / cg"
"Modified: / 1.4.1998 / 13:21:07 / cg"
@@ -3661,7 +3660,7 @@
"the emphasis used for the self pseudoVariable;
If syntaxColoring is turned on."
- ^ self at:#selfEmphasis ifAbsentPut:[self identifierEmphasis]
+ ^ self at:#selfEmphasis ifAbsent:[self identifierEmphasis]
"Created: / 31.3.1998 / 17:34:57 / cg"
"Modified: / 1.4.1998 / 13:21:51 / cg"
@@ -3699,7 +3698,7 @@
"the emphasis used for string constants;
If syntaxColoring is turned on."
- ^ self at:#stringEmphasis ifAbsentPut:[self constantEmphasis]
+ ^ self at:#stringEmphasis ifAbsent:[self constantEmphasis]
"Created: / 31.3.1998 / 15:19:09 / cg"
"Modified: / 1.4.1998 / 13:22:00 / cg"
@@ -3715,7 +3714,7 @@
"the color used for the super pseudoVariable;
If syntaxColoring is turned on."
- ^ self at:#superColor ifAbsentPut:[self selfColor]
+ ^ self at:#superColor ifAbsent:[self selfColor]
"Created: / 31.3.1998 / 17:37:56 / cg"
"Modified: / 1.4.1998 / 13:21:15 / cg"
@@ -3725,7 +3724,7 @@
"the emphasis used for the super pseudoVariable;
If syntaxColoring is turned on."
- ^ self at:#superEmphasis ifAbsentPut:[self selfEmphasis]
+ ^ self at:#superEmphasis ifAbsent:[self selfEmphasis]
"Created: / 31.3.1998 / 17:35:08 / cg"
"Modified: / 1.4.1998 / 13:21:41 / cg"
@@ -3745,7 +3744,7 @@
"the emphasis used for symbol constants;
If syntaxColoring is turned on."
- ^ self at:#symbolEmphasis ifAbsentPut:[self constantEmphasis]
+ ^ self at:#symbolEmphasis ifAbsent:[self constantEmphasis]
"Created: / 1.4.1998 / 12:57:43 / cg"
"Modified: / 1.4.1998 / 13:23:43 / cg"
@@ -3755,7 +3754,7 @@
"the color used for the thisContext pseudoVariable;
If syntaxColoring is turned on."
- ^ self at:#thisContextColor ifAbsentPut:[self identifierColor]
+ ^ self at:#thisContextColor ifAbsent:[self identifierColor]
"Created: / 31.3.1998 / 17:37:49 / cg"
"Modified: / 1.4.1998 / 13:21:24 / cg"
@@ -3765,7 +3764,7 @@
"the emphasis used for the thisContext pseudoVariable;
If syntaxColoring is turned on."
- ^ self at:#thisContextEmphasis ifAbsentPut:[self identifierEmphasis]
+ ^ self at:#thisContextEmphasis ifAbsent:[self identifierEmphasis]
"Created: / 31.3.1998 / 17:35:27 / cg"
"Modified: / 1.4.1998 / 13:21:30 / cg"
@@ -3775,7 +3774,7 @@
"the color used for bad message selectors;
If syntaxColoring is turned on."
- ^ self at:#unimplementedSelectorColor ifAbsentPut:[UserPreferences default at:#unimplementedSelectorColor ifAbsent:[Color black]]
+ ^ self at:#unimplementedSelectorColor ifAbsent:[UserPreferences default at:#unimplementedSelectorColor ifAbsent:[Color black]]
"Modified: / 21-04-2011 / 12:33:29 / cg"
!
@@ -3784,7 +3783,7 @@
"the emphasis used for bad message selectors;
If syntaxColoring is turned on."
- ^ self at:#unimplementedSelectorEmphasis ifAbsentPut:[UserPreferences default at:#unimplementedSelectorEmphasis ifAbsent:#normal]
+ ^ self at:#unimplementedSelectorEmphasis ifAbsent:[UserPreferences default at:#unimplementedSelectorEmphasis ifAbsent:#normal]
"Created: / 31-03-1998 / 15:19:09 / cg"
"Modified: / 21-04-2011 / 12:34:36 / cg"
@@ -3794,7 +3793,7 @@
"the color used for unknown identifiers;
If syntaxColoring is turned on."
- ^ self at:#unknownIdentifierColor ifAbsentPut:[self badIdentifierColor]
+ ^ self at:#unknownIdentifierColor ifAbsent:[self badIdentifierColor]
"
self current at:#unknownIdentifierColor put:Color red.
@@ -3812,7 +3811,7 @@
"the emphasis used for unknown identifiers;
If syntaxColoring is turned on."
- ^ self at:#unknownIdentifierEmphasis ifAbsentPut:[self badIdentifierEmphasis]
+ ^ self at:#unknownIdentifierEmphasis ifAbsent:[self badIdentifierEmphasis]
"Created: / 31.3.1998 / 19:11:55 / cg"
"Modified: / 1.4.1998 / 13:22:45 / cg"