UserPreferences.st
changeset 3361 daabd9bf9c3b
parent 3360 3ca08e2afd68
child 3362 6855944431e9
--- a/UserPreferences.st	Wed Apr 01 13:26:49 1998 +0200
+++ b/UserPreferences.st	Thu Apr 02 10:37:03 1998 +0200
@@ -127,6 +127,35 @@
     "Modified: / 1.4.1998 / 13:26:01 / cg"
 !
 
+bracketColor
+    "the color used for brackets;
+     If syntaxColoring is turned on."
+
+    ^ self at:#bracketColor ifAbsentPut:[Color black]
+
+    "
+     self current at:#bracketColor  put:Color red.
+     self current at:#bracketEmphasis  put:#bold
+    "
+
+    "Created: / 31.3.1998 / 19:11:38 / cg"
+    "Modified: / 1.4.1998 / 13:22:33 / cg"
+!
+
+bracketEmphasis
+    "the emphasis used for brackets;
+     If syntaxColoring is turned on."
+
+    ^ self at:#bracketEmphasis ifAbsentPut:#normal
+
+    "
+     self current at:#bracketEmphasis  put:#bold
+    "
+
+    "Created: / 31.3.1998 / 19:11:38 / cg"
+    "Modified: / 1.4.1998 / 13:22:33 / cg"
+!
+
 commentColor
     "the color used for comments;
      If syntaxColoring is turned on."
@@ -393,6 +422,11 @@
 
     ^ self at:#unknownIdentifierColor ifAbsentPut:[Color red darkened]
 
+    "
+     self current at:#unknownIdentifierColor  put:Color red.
+     self current at:#unknownIdentifierEmphasis  put:#bold
+    "
+
     "Created: / 31.3.1998 / 19:11:38 / cg"
     "Modified: / 1.4.1998 / 13:22:33 / cg"
 !
@@ -410,5 +444,5 @@
 !UserPreferences class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.11 1998-04-01 11:26:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.12 1998-04-02 08:37:03 ca Exp $'
 ! !