--- a/UserPreferences.st	Wed Oct 19 14:35:44 2005 +0200
+++ b/UserPreferences.st	Fri Oct 21 10:51:21 2005 +0200
@@ -1402,6 +1402,26 @@
     ^ super doesNotUnderstand:aMessage
 !
 
+emphasizeParenthesisLevel
+    ^ self at:#emphasizeParenthesisLevel ifAbsent:true
+
+    "
+     UserPreferences current emphasizeParenthesisLevel
+     UserPreferences current emphasizeParenthesisLevel:true
+     UserPreferences current emphasizeParenthesisLevel:false
+    "
+!
+
+emphasizeParenthesisLevel:aBoolean
+    self at:#emphasizeParenthesisLevel put:aBoolean
+
+    "
+     UserPreferences current emphasizeParenthesisLevel
+     UserPreferences current emphasizeParenthesisLevel:true
+     UserPreferences current emphasizeParenthesisLevel:false
+    "
+!
+
 errorColor
     "the color used for illegal identifiers;
      If syntaxColoring is turned on."
@@ -2387,5 +2407,5 @@
 !UserPreferences class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.155 2005-04-26 10:30:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.156 2005-10-21 08:51:21 cg Exp $'
 ! !