--- a/Label.st	Wed Jun 05 18:12:29 1996 +0200
+++ b/Label.st	Wed Jun 05 20:36:09 1996 +0200
@@ -1333,8 +1333,14 @@
     ].
 
     numberOfLines isNil ifTrue:[
-labelWidth := logo widthOn:self.
-labelHeight := logo heightOn:self.
+        (logo respondsTo:#preferredBounds) ifTrue:[
+            b := logo preferredBounds.
+            labelWidth := b width.
+            labelHeight := b height.
+        ] ifFalse:[
+            labelWidth := logo widthOn:self.
+            labelHeight := logo heightOn:self.
+        ].
 
 "/        b := logo bounds.
 "/        labelWidth := b right.
@@ -1362,7 +1368,7 @@
     labelWidth := textWidth + (hSpace * 2).
     labelHeight := textHeight + (vSpace * 2)
 
-    "Modified: 13.5.1996 / 21:43:49 / cg"
+    "Modified: 5.6.1996 / 20:34:52 / cg"
 !
 
 getLabelFromModel
@@ -1592,5 +1598,5 @@
 !Label class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.64 1996-05-29 10:17:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.65 1996-06-05 18:36:09 cg Exp $'
 ! !