--- a/Label.st	Sun Mar 02 21:47:37 2003 +0100
+++ b/Label.st	Wed Mar 12 18:08:20 2003 +0100
@@ -1484,8 +1484,11 @@
             labelWidth := b width.
             labelHeight := b height.
         ] ifFalse:[
-            labelWidth := logo widthOn:self.
-            labelHeight := logo heightOn:self.
+"/ have to ask the device for fonts
+            labelWidth := logo widthOn:device.
+            labelHeight := logo heightOn:device.
+"/            labelWidth := logo widthOn:self.
+"/            labelHeight := logo heightOn:self.
         ].
 
 "/        b := logo bounds.
@@ -1838,5 +1841,5 @@
 !Label class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.118 2003-02-24 11:17:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.119 2003-03-12 17:08:20 penk Exp $'
 ! !