--- a/ListView.st	Mon Jul 03 16:32:03 2006 +0200
+++ b/ListView.st	Mon Jul 03 16:57:59 2006 +0200
@@ -2123,12 +2123,16 @@
     tabPositions := UserDefaultTabPositions ? DefaultTabPositions.
     includesNonStrings := false.
     self getFontParameters.
-    wordCheck := [:char | char isNationalAlphaNumeric].
+    UserPreferences current extendedWordSelectMode ifTrue:[
+        wordCheck := [:char | char isNationalAlphaNumeric or:[char == $_] ].
+    ] ifFalse:[
+        wordCheck := [:char | char isNationalAlphaNumeric ].
+    ].
     scrollWhenUpdating := #keep. "/ #beginOfText.
 
     autoScroll := true.
 
-    "Modified: 4.11.1996 / 23:28:17 / cg"
+    "Modified: / 03-07-2006 / 16:57:25 / cg"
 !
 
 realize
@@ -4440,5 +4444,5 @@
 !ListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.306 2006-02-14 11:01:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.307 2006-07-03 14:57:59 cg Exp $'
 ! !