--- a/HorizontalPanelView.st	Fri May 19 18:41:01 1995 +0200
+++ b/HorizontalPanelView.st	Tue Jun 06 06:16:07 1995 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/HorizontalPanelView.st,v 1.11 1995-05-12 18:24:12 claus Exp $
+$Header: /cvs/stx/stx/libwidg/HorizontalPanelView.st,v 1.12 1995-06-06 04:13:45 claus Exp $
 '!
 
 !HorizontalPanelView class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/HorizontalPanelView.st,v 1.11 1995-05-12 18:24:12 claus Exp $
+$Header: /cvs/stx/stx/libwidg/HorizontalPanelView.st,v 1.12 1995-06-06 04:13:45 claus Exp $
 "
 !
 
@@ -694,19 +694,21 @@
 layout
     "leftover for historic reasons - do not use any more"
 
-    self horizontalLayout
+    self obsoleteMethodWarning:'use #horizontalLayout'.
+    ^ self horizontalLayout
 !
 
 layout:aSymbol
     "leftover for historic reasons - do not use any more"
 
-    self horizontalLayout:aSymbol
+    self obsoleteMethodWarning:'use #horizontalLayout:'.
+    ^ self horizontalLayout:aSymbol
 ! !
 
 
 !HorizontalPanelView methodsFor:'queries'!
 
-preferedExtent
+preferredExtent
     "return a good extent, one that makes subviews fit"
 
     |sumOfWidths maxHeight maxWidth|
@@ -722,7 +724,7 @@
     subViews do:[:child |
 	|childsPreference|
 
-	childsPreference := child preferedExtent.
+	childsPreference := child preferredExtent.
 	sumOfWidths := sumOfWidths + childsPreference x.
 	maxHeight := maxHeight max:childsPreference y.
 	maxWidth := maxWidth max:childsPreference x.