--- a/VerticalPanelView.st	Thu Apr 25 15:09:33 2013 +0200
+++ b/VerticalPanelView.st	Thu Apr 25 15:09:54 2013 +0200
@@ -728,8 +728,7 @@
     "(re)compute position of every child"
 
     |ypos space sumOfHeights numChilds l hEach hInside hL vL
-     maxWidth maxHeight resizeToMaxV resizeToMaxH m2 subViews ext 
-     restHeight y2 bw|
+     maxWidth maxHeight resizeToMaxV resizeToMaxH m2 subViews restHeight y2 bw|
 
     subViews := self subViewsToConsider.
     subViews size == 0 ifTrue:[^ self].
@@ -755,7 +754,7 @@
     (vL endsWith:'Max') ifTrue:[
         resizeToMaxV := true.
         hEach := maxHeight := subViews inject:0 into:[:maxSoFar :child | maxSoFar max:child heightIncludingBorder].
-        vL := (vL copyWithoutLast:3) asSymbol.
+        vL := (vL copyButLast:3) asSymbol.
     ].
 
     numChilds == 1 ifTrue:[
@@ -907,7 +906,7 @@
     (hL endsWith:'Max') ifTrue:[
         resizeToMaxH := true.
         maxWidth := subViews inject:0 into:[:maxSoFar :child | maxSoFar max:child widthIncludingBorder].
-        hL := (hL copyWithoutLast:3) asSymbol.
+        hL := (hL copyButLast:3) asSymbol.
     ].
 
     "
@@ -1110,9 +1109,10 @@
 !VerticalPanelView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/VerticalPanelView.st,v 1.50 2009-10-23 15:22:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/VerticalPanelView.st,v 1.51 2013-04-25 13:09:54 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/VerticalPanelView.st,v 1.50 2009-10-23 15:22:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/VerticalPanelView.st,v 1.51 2013-04-25 13:09:54 stefan Exp $'
 ! !
+