diff -r 4d5b79bde53b -r 21b7fbdf7e5a HorizontalPanelView.st
--- a/HorizontalPanelView.st	Tue Sep 29 19:21:55 2015 +0200
+++ b/HorizontalPanelView.st	Tue Sep 29 19:39:49 2015 +0200
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libwidg' }"
 
+"{ NameSpace: Smalltalk }"
+
 PanelView subclass:#HorizontalPanelView
 	instanceVariableNames:'reverseOrderIfOKAtLeft'
 	classVariableNames:''
@@ -1271,7 +1273,7 @@
                 ].
             ].
 
-            restWidth := width - sumOfWidths "- (numChilds-1*space)".
+            restWidth := wInside "width" - sumOfWidths "- (numChilds-1*space)".
 
             ((l == #center) and:[numChilds == 1]) ifTrue:[l := #spread].
             (l == #spread and:[numChilds == 1]) ifTrue:[l := #spreadSpace].
@@ -1420,7 +1422,7 @@
                             newHChild := newHChild - m2.
                         ] ifFalse:[
                             vL == #fit ifTrue:[
-                                newHChild := height - (bwChild * 2).
+                                newHChild := height "- (bwChild * 2)".
                                 "/
                                 "/ if the view has a 0-level AND
                                 "/ my level is non-zero, begin with margin
@@ -1597,10 +1599,10 @@
 !HorizontalPanelView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/HorizontalPanelView.st,v 1.63 2014-12-18 23:12:41 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/HorizontalPanelView.st,v 1.63 2014-12-18 23:12:41 cg Exp $'
+    ^ '$Header$'
 ! !