--- a/PullDownMenu.st	Fri May 30 14:25:15 2008 +0200
+++ b/PullDownMenu.st	Fri May 30 14:25:50 2008 +0200
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libwidg' }"
 
 View subclass:#PullDownMenu
@@ -1526,7 +1525,7 @@
 
     font := font onDevice:device.
     self origin:(0.0 @ 0.0)
-         extent:(1.0 @ self preferredExtent y)
+         extent:(1.0 @ self preferredHeight)
 "/         extent:(1.0 @ (font height + (font descent * 2)  + topMargin)).
 !
 
@@ -1805,5 +1804,5 @@
 !PullDownMenu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.100 2006-02-22 15:00:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.101 2008-05-30 12:25:50 cg Exp $'
 ! !