# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 861445436 -7200
# Node ID 34e1870524f1051e05cccfd6501a9470b04c8f7c
# Parent  4228b1451bc97b97fe8f56f551aa55e1d9b631cb
fetch device font before querying

diff -r 4228b1451bc9 -r 34e1870524f1 MCLEntry.st
--- 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 $'
 ! !
diff -r 4228b1451bc9 -r 34e1870524f1 MultiColListEntry.st
--- a/MultiColListEntry.st	Fri Apr 18 18:16:46 1997 +0200
+++ b/MultiColListEntry.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/MultiColListEntry.st,v 1.22 1997-04-17 11:21:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/MultiColListEntry.st,v 1.23 1997-04-19 10:23:56 cg Exp $'
 ! !