--- a/PullDMenu.st	Thu Aug 24 05:02:53 1995 +0200
+++ b/PullDMenu.st	Sun Aug 27 02:35:11 1995 +0200
@@ -34,7 +34,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/Attic/PullDMenu.st,v 1.21 1995-07-23 03:02:18 claus Exp $
+$Header: /cvs/stx/stx/libwidg/Attic/PullDMenu.st,v 1.22 1995-08-27 00:34:39 claus Exp $
 '!
 
 !PullDownMenu class methodsFor:'documentation'!
@@ -55,7 +55,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/Attic/PullDMenu.st,v 1.21 1995-07-23 03:02:18 claus Exp $
+$Header: /cvs/stx/stx/libwidg/Attic/PullDMenu.st,v 1.22 1995-08-27 00:34:39 claus Exp $
 "
 !
 
@@ -408,7 +408,7 @@
 
     font := font on:device.
     self origin:(0.0 @ 0.0)
-	 extent:(self preferredExtent)
+	 extent:(1.0 @ self preferredExtent y)
 "/         extent:(1.0 @ (font height + (font descent * 2)  + topMargin)).
 !
 
@@ -721,7 +721,10 @@
 !PullDownMenu methodsFor:'queries'!
 
 preferredExtent
-    ^ 1.0 @ (font height + (font descent * 2) "+ topMargin" + (margin*2)).
+    |w|
+
+    w := self titleLenUpTo:(titles size + 1).
+    ^ w @ (font height + (font descent * 2) "+ topMargin" + (margin*2)).
 ! !
 
 !PullDownMenu methodsFor:'private'!