--- a/Label.st	Tue May 28 22:20:48 1996 +0200
+++ b/Label.st	Wed May 29 12:20:58 1996 +0200
@@ -1409,6 +1409,10 @@
 
     |extra|
 
+    preferredExtent notNil ifTrue:[
+        ^ preferredExtent
+    ].
+
     fixSize ifTrue:[^ self extent].
 
     logo isNil ifTrue:[
@@ -1422,7 +1426,7 @@
         
     ^ super preferredExtent
 
-    "Modified: 13.5.1996 / 11:14:52 / cg"
+    "Modified: 29.5.1996 / 12:12:05 / cg"
 ! !
 
 !Label methodsFor:'redrawing'!
@@ -1588,5 +1592,5 @@
 !Label class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.63 1996-05-28 20:09:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.64 1996-05-29 10:17:45 cg Exp $'
 ! !