--- a/UserPreferences.st	Mon Jul 03 16:32:16 2006 +0200
+++ b/UserPreferences.st	Mon Jul 03 16:50:54 2006 +0200
@@ -890,6 +890,33 @@
     "
 !
 
+extendedWordSelectMode
+    "when double clicking, include underscore, dollar and at-character as word-characters ?
+     (default is off)"
+
+    ^ self at:#extendedWordSelectMode ifAbsent:false
+
+    "
+     UserPreferences current extendedWordSelectMode
+    "
+
+    "Created: / 03-07-2006 / 16:49:58 / cg"
+!
+
+extendedWordSelectMode:aBoolean
+    "when double clicking, include underscore, dollar and at-character as word-characters ?
+     (default is off)"
+
+    ^ self at:#extendedWordSelectMode put:aBoolean
+
+    "
+     UserPreferences current extendedWordSelectMode:true
+     UserPreferences current extendedWordSelectMode:false
+    "
+
+    "Created: / 03-07-2006 / 16:50:20 / cg"
+!
+
 focusFollowsMouse
     "return the flag which controls if the keyboard focus should
      follow the mouse (as in X) - as opposed to click mode (as in MS-win).
@@ -2540,5 +2567,5 @@
 !UserPreferences class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.167 2006-07-03 14:32:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.168 2006-07-03 14:50:54 cg Exp $'
 ! !