--- 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 $'
! !