--- a/Label.st	Sun Feb 11 12:59:15 1996 +0100
+++ b/Label.st	Sun Feb 11 14:53:02 1996 +0100
@@ -1300,13 +1300,15 @@
 
     |extra|
 
+    fixSize ifTrue:[^ self extent].
+
     logo isNil ifTrue:[
-	self label:''
+        self label:''
     ].
 
     logo notNil ifTrue:[
-	extra := margin * 2.
-	^ (labelWidth + extra + hSpace) @ (labelHeight + extra + vSpace)
+        extra := margin * 2.
+        ^ (labelWidth + extra + hSpace) @ (labelHeight + extra + vSpace)
     ]. 
         
     ^ super preferredExtent
@@ -1451,5 +1453,5 @@
 !Label class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.45 1996-02-04 20:40:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.46 1996-02-11 13:53:02 ca Exp $'
 ! !