--- a/MCLEntry.st Fri Apr 18 18:16:46 1997 +0200
+++ b/MCLEntry.st Sat Apr 19 12:23:56 1997 +0200
@@ -432,7 +432,9 @@
xPos := x.
prevString := ''.
- y0 := y - (aGC font on:aGC device) ascent.
+ aGC font:(aGC font on:aGC device).
+
+ y0 := y - aGC font ascent.
strings keysAndValuesDo:[:index :subString |
|item|
@@ -467,7 +469,7 @@
]
].
- "Modified: 17.4.1997 / 12:53:04 / cg"
+ "Modified: 19.4.1997 / 09:54:56 / cg"
! !
!MultiColListEntry methodsFor:'queries'!
@@ -534,5 +536,5 @@
!MultiColListEntry class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/Attic/MCLEntry.st,v 1.22 1997-04-17 11:21:25 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/Attic/MCLEntry.st,v 1.23 1997-04-19 10:23:56 cg Exp $'
! !