ListView.st
changeset 798 9ab00cb0d9d3
parent 780 48f97576806f
child 808 0fb219efdfa2
--- a/ListView.st	Fri Jul 19 20:52:41 1996 +0200
+++ b/ListView.st	Fri Jul 19 20:53:39 1996 +0200
@@ -1923,8 +1923,9 @@
     (lineSize == 0) ifTrue:[
         ^ (tcol * fontWidth) + textStartLeft
     ].
+
     (lineSize < col) ifTrue:[
-        ^ (font widthOf:line) 
+        ^ (line widthOn:self) 
           + (fontWidth * (tcol - lineSize)) 
           + textStartLeft
     ].
@@ -1933,7 +1934,7 @@
     ].
     ^ ((line copyTo:tcol) widthOn:self) + textStartLeft
 
-    "Modified: 22.5.1996 / 15:53:56 / cg"
+    "Modified: 19.7.1996 / 20:38:54 / cg"
 !
 
 yOfVisibleLine:visLineNr
@@ -3262,5 +3263,5 @@
 !ListView  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.97 1996-07-05 16:03:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.98 1996-07-19 18:53:39 cg Exp $'
 ! !