--- a/VerticalPanelView.st	Fri May 19 18:41:01 1995 +0200
+++ b/VerticalPanelView.st	Tue Jun 06 06:16:07 1995 +0200
@@ -23,7 +23,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/VerticalPanelView.st,v 1.10 1995-05-12 18:25:18 claus Exp $
+$Header: /cvs/stx/stx/libwidg/VerticalPanelView.st,v 1.11 1995-06-06 04:15:38 claus Exp $
 '!
 
 !VerticalPanelView class methodsFor:'documentation'!
@@ -44,7 +44,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/VerticalPanelView.st,v 1.10 1995-05-12 18:25:18 claus Exp $
+$Header: /cvs/stx/stx/libwidg/VerticalPanelView.st,v 1.11 1995-06-06 04:15:38 claus Exp $
 "
 !
 
@@ -478,7 +478,7 @@
 	panel add:((CheckBox on:false asValue) label:'nr 2 '; resize).
 	panel add:((CheckBox on:true asValue) label:'number 3 '; resize).
 
-	panel extent:(panel preferedExtent).
+	panel extent:(panel preferredExtent).
 	panel open
 "
 ! !
@@ -733,18 +733,20 @@
 layout:aSymbol
     "leftover for historic reasons - do not use any more"
 
-    self verticalLayout:aSymbol
+    self obsoleteMethodWarning:'use #verticalLayout:'.
+    ^ self verticalLayout:aSymbol
 !
 
 layout
     "leftover for historic reasons - do not use any more"
 
-    self verticalLayout
+    self obsoleteMethodWarning:'use #verticalLayout'.
+    ^ self verticalLayout
 ! !
 
 !VerticalPanelView methodsFor:'queries'!
 
-preferedExtent
+preferredExtent
     "return a good extent, one that makes subviews fit"
 
     |sumOfHeights maxWidth maxHeight|
@@ -760,7 +762,7 @@
     subViews do:[:child |
 	|childsPreference|
 
-	childsPreference := child preferedExtent.
+	childsPreference := child preferredExtent.
 	sumOfHeights := sumOfHeights + childsPreference y.
 	maxHeight := maxHeight max:childsPreference y.
 	maxWidth := maxWidth max:childsPreference x.