--- a/Label.st	Wed Sep 29 13:29:28 2004 +0200
+++ b/Label.st	Thu Sep 30 12:31:52 2004 +0200
@@ -1693,7 +1693,7 @@
             or:[logo species == String
             or:[logo isStringCollection]]) ifTrue:[
                 stringLogo := true.
-                y := y + (font ascent).
+                y := y + (font ascentOn:device).
             ] ifFalse:[
                 stringLogo := false.
             ].
@@ -1835,5 +1835,5 @@
 !Label class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.125 2004-05-11 16:35:38 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.126 2004-09-30 10:31:52 ca Exp $'
 ! !