diff -r 977c3d87e61f -r 9af26ad294af ListView.st
--- a/ListView.st	Tue Jun 19 17:02:42 2001 +0200
+++ b/ListView.st	Fri Jun 22 10:42:14 2001 +0200
@@ -21,7 +21,7 @@
 		listMsg viewOrigin listChannel backgroundAlreadyClearedColor
 		scrollWhenUpdating'
 	classVariableNames:'DefaultForegroundColor DefaultBackgroundColor DefaultTabPositions
-		DefaultLeftMargin DefaultTopMargin'
+		UserDefaultTabPositions DefaultLeftMargin DefaultTopMargin'
 	poolDictionaries:''
 	category:'Views-Text'
 !
@@ -334,9 +334,19 @@
 !ListView class methodsFor:'defaults'!
 
 defaultTabPositions
-    "return an array containing the default tab positions"
-
-    ^ self tab8Positions
+    "return an array containing the styleSheets default tab positions"
+
+    ^ DefaultTabPositions ? self tab8Positions
+!
+
+defaultTabPositions:aVector
+    "set the array containing the styleSheets tab positions"
+
+    DefaultTabPositions := aVector
+
+    "
+     self defaultTabPositions:(self tab4Positions)
+    "
 !
 
 tab4Positions
@@ -368,6 +378,22 @@
     DefaultTopMargin := 0.5.
 
     "Modified: 20.10.1997 / 15:05:30 / cg"
+!
+
+userDefaultTabPositions
+    "return an array containing the users default tab positions"
+
+    ^ UserDefaultTabPositions
+!
+
+userDefaultTabPositions:aVector
+    "set the array containing the users tab positions"
+
+    UserDefaultTabPositions := aVector
+
+    "
+     self userDefaultTabPositions:(self tab4Positions)
+    "
 ! !
 
 !ListView methodsFor:'accessing'!
@@ -1979,7 +2005,7 @@
     nLinesShown := 1.     "just any value"
     leftOffset := 0.
     partialLines := true.
-    tabPositions := DefaultTabPositions.
+    tabPositions := UserDefaultTabPositions ? DefaultTabPositions.
     includesNonStrings := false.
     self getFontParameters.
     wordCheck := [:char | char isNationalAlphaNumeric].
@@ -4215,6 +4241,12 @@
     tabPositions := self class tab8Positions.
 !
 
+setTabPositions:aVector
+    "set tab stops"
+
+    tabPositions := aVector.
+!
+
 withTabs:line
     "Assuming an 8-character tab,
      compress multiple leading spaces to tabs, return a new line string
@@ -4316,5 +4348,5 @@
 !ListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.252 2001-04-09 12:25:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.253 2001-06-22 08:42:14 cg Exp $'
 ! !