--- a/MultiColListEntry.st	Sun May 12 21:05:36 1996 +0200
+++ b/MultiColListEntry.st	Sun May 12 21:07:06 1996 +0200
@@ -420,7 +420,7 @@
 
 !MultiColListEntry methodsFor:'queries'!
 
-widthIn:aGC
+widthOn:aGC
     "return the width of the receiver when displayed in aGC"
 
     |xPos xMax tabPos prevLen|
@@ -432,30 +432,32 @@
     xMax := 0.
     prevLen := 0.
     strings keysAndValuesDo:[:index :subString |
-	|w|
+        |w|
 
-	subString notNil ifTrue:[
-	    "
-	     find next tab
-	    "
-	    tabPos := tabSpec positionOfTab:index forString:subString on:aGC.
-	    tabPos isNil ifTrue:[
-		"
-		 no tab - just continue where we are ...
-		"
-		xPos := xPos + prevLen.
-	    ] ifFalse:[
-		xPos := tabPos.
-	    ].
-	    w := prevLen := aGC font widthOf:subString.
-	    xMax := xMax max:(xPos + w).
-	]
+        subString notNil ifTrue:[
+            "
+             find next tab
+            "
+            tabPos := tabSpec positionOfTab:index forString:subString on:aGC.
+            tabPos isNil ifTrue:[
+                "
+                 no tab - just continue where we are ...
+                "
+                xPos := xPos + prevLen.
+            ] ifFalse:[
+                xPos := tabPos.
+            ].
+            w := prevLen := aGC font widthOf:subString.
+            xMax := xMax max:(xPos + w).
+        ]
     ].
     ^ xMax
+
+    "Created: 12.5.1996 / 20:38:38 / cg"
 ! !
 
 !MultiColListEntry class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/MultiColListEntry.st,v 1.16 1996-04-27 18:22:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/MultiColListEntry.st,v 1.17 1996-05-12 19:07:06 cg Exp $'
 ! !