--- a/ListView.st Fri Nov 01 18:32:39 1996 +0100
+++ b/ListView.st Mon Nov 04 23:29:30 1996 +0100
@@ -672,14 +672,17 @@
].
list := aCollection.
+ nonStringsBefore := includesNonStrings.
+ includesNonStrings := false.
+
list notNil ifTrue:[
expand ifTrue:[
self expandTabs
] ifFalse:[
includesNonStrings := (list findFirst:[:e | e isString not]) ~~ 0.
].
- (includesNonStrings or:[nonStringsBefore]) ifTrue:[self getFontParameters].
].
+ (includesNonStrings ~~ nonStringsBefore) ifTrue:[self getFontParameters].
widthOfWidestLine := nil. "/ i.e. unknown
oldFirst := firstLineShown.
@@ -702,7 +705,7 @@
]
"Modified: 30.8.1995 / 19:07:13 / claus"
- "Modified: 22.10.1996 / 23:19:19 / cg"
+ "Modified: 4.11.1996 / 23:27:58 / cg"
!
removeIndex:lineNr
@@ -797,15 +800,17 @@
].
list := aCollection.
+ nonStringsBefore := includesNonStrings.
+ includesNonStrings := false.
+
list notNil ifTrue:[
- nonStringsBefore := includesNonStrings.
expandTabs ifTrue:[
self expandTabs
] ifFalse:[
includesNonStrings := (list findFirst:[:e | e isString not]) ~~ 0.
].
- (includesNonStrings or:[nonStringsBefore]) ifTrue:[self getFontParameters].
].
+ (includesNonStrings ~~ nonStringsBefore) ifTrue:[self getFontParameters].
"/ new - reposition horizontally if too big
widthOfWidestLine := nil. "/ i.e. unknown
@@ -830,7 +835,7 @@
]
"Modified: 18.12.1995 / 23:27:54 / stefan"
- "Modified: 22.10.1996 / 23:17:58 / cg"
+ "Modified: 4.11.1996 / 23:28:55 / cg"
!
size
@@ -1414,11 +1419,13 @@
leftOffset := 0.
partialLines := true.
tabPositions := DefaultTabPositions.
+ includesNonStrings := false.
self getFontParameters.
wordCheck := [:char | char isNationalAlphaNumeric].
- includesNonStrings := false.
autoScroll := true.
+
+ "Modified: 4.11.1996 / 23:28:17 / cg"
!
realize
@@ -3463,5 +3470,5 @@
!ListView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.104 1996-10-22 22:20:39 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.105 1996-11-04 22:29:30 cg Exp $'
! !