--- a/ListView.st Fri Mar 09 00:59:36 2018 +0100
+++ b/ListView.st Mon Mar 12 15:42:00 2018 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
@@ -3176,41 +3174,41 @@
|newW oldW|
widthOfWidestLine notNil ifTrue:[
- newEntry isNil ifTrue:[
- newW := 0
- ] ifFalse:[
- (newEntry isSingleByteString) ifTrue:[
- newW := gc font widthOf:newEntry
- ] ifFalse:[
- newW := newEntry widthOn:self
- ].
- ].
-
- newW >= widthOfWidestLine ifTrue:[
- widthOfWidestLine := newW.
- ] ifFalse:[
- oldEntry isNil ifTrue:[
- oldW := 0
- ] ifFalse:[
- (oldEntry isSingleByteString) ifTrue:[
- oldW := gc font widthOf:oldEntry
- ] ifFalse:[
- oldW := oldEntry widthOn:self
- ].
- ].
- newW > oldW ifTrue:[
- "/ no change; new entries width is between this width and amx width
- ] ifFalse:[
- "/ new entry is smaller than oldEntry; if the oldEntry was the previos max,
- "/ we don't know the new max
- oldW = widthOfWidestLine ifTrue:[
- widthOfWidestLine := nil "/ means: unknown
- ] ifFalse:[
- "/ old line was not the widest, and new line is shorter;
- "/ no change
- ]
- ]
- ].
+ newEntry isNil ifTrue:[
+ newW := 0
+ ] ifFalse:[
+ (newEntry isSingleByteString) ifTrue:[
+ newW := gc font widthOf:newEntry
+ ] ifFalse:[
+ newW := newEntry widthOn:self
+ ].
+ ].
+
+ newW >= widthOfWidestLine ifTrue:[
+ widthOfWidestLine := newW.
+ ] ifFalse:[
+ oldEntry isNil ifTrue:[
+ oldW := 0
+ ] ifFalse:[
+ (oldEntry isSingleByteString) ifTrue:[
+ oldW := gc font widthOf:oldEntry
+ ] ifFalse:[
+ oldW := oldEntry widthOn:self
+ ].
+ ].
+ newW > oldW ifTrue:[
+ "/ no change; new entries width is between this width and amx width
+ ] ifFalse:[
+ "/ new entry is smaller than oldEntry; if the oldEntry was the previous max,
+ "/ we don't know the new max
+ oldW = widthOfWidestLine ifTrue:[
+ widthOfWidestLine := nil "/ means: unknown
+ ] ifFalse:[
+ "/ old line was not the widest, and new line is shorter;
+ "/ no change
+ ]
+ ]
+ ].
].
^ widthOfWidestLine
!