--- a/DialogBox.st	Thu Oct 31 09:04:07 2019 +0100
+++ b/DialogBox.st	Thu Oct 31 10:22:59 2019 +0100
@@ -7927,8 +7927,7 @@
     verticalPanel isNil ifTrue:[
         savedY := yPosition.
         self addComponent:(verticalPanel := VerticalPanelView new).
-        verticalPanel horizontalLayout:#fit.
-        verticalPanel verticalLayout:#top.
+        verticalPanel horizontalLayout:#fit verticalLayout:#top.
         "/ verticalPanel height:25.
         yPosition := savedY.
     ].
@@ -8298,9 +8297,10 @@
     "Modified: 9.2.1996 / 22:23:15 / cg"
 !
 
-addLabelledField:aView label:labelString adjust:labelAdjust tabable:tabable from:leftX to:rightX separateAtX:relativeX
+addLabelledField:aView label:labelString adjust:labelAdjust tabable:tabable from:leftX to:rightX separateAtX:sepX
     "add a label and some view side-by-side.
-     The label goes from 0.0 to relativeX; the inputField from relativeX to 1.0.
+     The label goes from 0.0 to sepX; the inputField from sepX to 1.0.
+     sepX may be relative (0.0 .. 1.0) or in absolute pixels.
      The label's string is defined by labelString and adjusted according to labelAdjust.
      The inputField gets model as its model.
      Return the inputField."
@@ -8310,7 +8310,7 @@
         label:labelString 
         adjust:labelAdjust 
         tabable:tabable 
-        from:leftX to:rightX separateAtX:relativeX 
+        from:leftX to:rightX separateAtX:sepX 
         nameAs:nil
 
     "
@@ -8356,10 +8356,11 @@
 !
 
 addLabelledField:aView label:labelString adjust:labelAdjust 
-    tabable:tabable from:leftX to:rightX separateAtX:relativeX nameAs:aName
+    tabable:tabable from:leftX to:rightX separateAtX:sepX nameAs:aName
 
     "add a label and some view side-by-side.
-     The label goes from 0.0 to relativeX; the inputField from relativeX to 1.0.
+     The label goes from 0.0 to sepX; the inputField from sepX to 1.0.
+     sepX may be relative (0.0 .. 1.0) or in absolute pixels.
      The label's string is defined by labelString and adjusted according to labelAdjust.
      The inputField gets model as its model.
      Return the inputField."
@@ -8370,7 +8371,7 @@
         adjust:labelAdjust 
         tabable:tabable 
         from:leftX to:rightX 
-        separateAtX:relativeX 
+        separateAtX:sepX 
         nameAs:aName
         foregroundColor:nil
 
@@ -8438,11 +8439,12 @@
 !
 
 addLabelledField:aView label:labelString adjust:labelAdjust 
-    tabable:tabable from:leftX to:rightX separateAtX:relativeX nameAs:aName
+    tabable:tabable from:leftX to:rightX separateAtX:sepX nameAs:aName
     foregroundColor:fgColor
 
     "add a label and some view side-by-side.
-     The label goes from 0.0 to relativeX; the inputField from relativeX to 1.0.
+     The label goes from 0.0 to sepX; the inputField from sepX to 1.0.
+     sepX may be relative (0.0 .. 1.0) or in absolute pixels.
      The label's string is defined by labelString and adjusted according to labelAdjust.
      The inputField gets model as its model.
      Return the inputField."
@@ -8458,10 +8460,10 @@
 
     self addComponent:lbl indent:leftIndent withHeight:max.
     lbl rightInset:0.
-    relativeX isInteger ifTrue:[
-        wLabel := relativeX.
+    sepX isInteger ifTrue:[
+        wLabel := sepX.
     ] ifFalse:[
-        wLabel := relW*relativeX.
+        wLabel := relW*sepX.
     ].
 
     lbl 
@@ -8470,7 +8472,7 @@
         adjust:labelAdjust; 
         borderWidth:0.
 
-    relativeX isInteger ifTrue:[
+    sepX isInteger ifTrue:[
         lbl preferredExtent:(wLabel @ lbl preferredExtent y).
         lbl extent:(wLabel @ lbl preferredExtent y).
         lbl sizeFixed:true.
@@ -8487,17 +8489,17 @@
 
     self addComponent:aView tabable:tabable.
 
-    relativeX isInteger ifTrue:[
+    sepX isInteger ifTrue:[
         aView 
-            leftInset:(ViewSpacing + relativeX); 
+            leftInset:(ViewSpacing + sepX); 
             left:0.0;
             rightInset:ViewSpacing; 
             right:1.0.
     ] ifFalse:[
         aView 
             leftInset:ViewSpacing rightInset:ViewSpacing;
-            width:relW*(1.0 - relativeX); 
-            left:leftX+(relW*relativeX).
+            width:relW*(1.0 - sepX); 
+            left:leftX+(relW*sepX).
     ].
 
     "/ self todo. "/ someone changes this later, back to a too small height !!!!!!
@@ -8578,9 +8580,10 @@
     "Modified: / 16-07-2019 / 16:37:11 / Claus Gittinger"
 !
 
-addLabelledField:aView label:labelString adjust:labelAdjust tabable:tabable separateAtX:relativeX
+addLabelledField:aView label:labelString adjust:labelAdjust tabable:tabable separateAtX:sepX
     "add a label and some view side-by-side.
-     The label goes from 0.0 to relativeX; the inputField from relativeX to 1.0.
+     The label goes from 0.0 to sepX; the inputField from sepX to 1.0.
+     sepX may be relative (0.0 .. 1.0) or in absolute pixels.
      The label's string is defined by labelString and adjusted according to labelAdjust.
      The inputField gets model as its model.
      Return the inputField."
@@ -8591,7 +8594,7 @@
         adjust:labelAdjust 
         tabable:tabable 
         from:0.0 to:1.0 
-        separateAtX:relativeX
+        separateAtX:sepX
 
 "/    |y lbl max|
 "/
@@ -9790,9 +9793,10 @@
     "Modified: / 12-02-2019 / 10:27:03 / Stefan Vogel"
 !
 
-addLabelledInputField:labelString adjust:labelAdjust on:model tabable:tabable from:leftX to:rightX separateAtX:relativeX
+addLabelledInputField:labelString adjust:labelAdjust on:model tabable:tabable from:leftX to:rightX separateAtX:sepX
     "add a label and an inputField side-by-side.
-     The label goes from 0.0 to relativeX; the inputField from relativeX to 1.0.
+     The label goes from 0.0 to sepX; the inputField from sepX to 1.0.
+     sepX may be relative (0.0 .. 1.0) or in absolute pixels.
      The label's string is defined by labelString and adjusted according to labelAdjust.
      The inputField gets model as its model.
      Return the inputField."
@@ -9803,7 +9807,7 @@
         adjust:labelAdjust
         tabable:tabable 
         from:leftX to:rightX
-        separateAtX:relativeX.
+        separateAtX:sepX.
 
     "
      |dialog model field|