--- a/VerticalPanelView.st	Tue Sep 29 19:39:49 2015 +0200
+++ b/VerticalPanelView.st	Tue Sep 29 19:40:42 2015 +0200
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libwidg' }"
 
+"{ NameSpace: Smalltalk }"
+
 PanelView subclass:#VerticalPanelView
 	instanceVariableNames:'rowHeight'
 	classVariableNames:''
@@ -839,7 +841,7 @@
                 ].
             ].
 
-            restHeight := height - sumOfHeights "- (numChilds-1*space)".
+            restHeight := hInside - sumOfHeights "- (numChilds-1*space)".
             ((l == #center) and:[numChilds == 1]) ifTrue:[l := #spread].
             (l == #spread and:[numChilds == 1]) ifTrue:[l := #spreadSpace].
 
@@ -1146,10 +1148,10 @@
 !VerticalPanelView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/VerticalPanelView.st,v 1.52 2014-12-18 23:13:29 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/VerticalPanelView.st,v 1.52 2014-12-18 23:13:29 cg Exp $'
+    ^ '$Header$'
 ! !